From 7e72649221218795dade3f5b97785a2db2a96dd8 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 6 Mar 2001 15:36:19 +0000 Subject: [PATCH] (bookmark-get-bookmark): Use assoc-ignore-case if bookmark-completion-ignore-case it t. --- lisp/bookmark.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 55c37fd027b..ad43d0feae9 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -1,6 +1,6 @@ ;;; bookmark.el --- set bookmarks, maybe annotate them, jump to them later. -;; Copyright (C) 1993, 1994, 1995, 1996, 1997 Free Software Foundation +;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 2001 Free Software Foundation ;; Author: Karl Fogel ;; Maintainer: Karl Fogel @@ -346,7 +346,10 @@ through a file easier.") (defun bookmark-get-bookmark (bookmark) "Return the full entry for BOOKMARK in bookmark-alist." - (assoc bookmark bookmark-alist)) + (apply (if bookmark-completion-ignore-case + #'assoc-ignore-case + #'assoc) + (list bookmark bookmark-alist))) (defun bookmark-get-bookmark-record (bookmark) -- 2.39.5