(bookmark-get-bookmark): Use assoc-ignore-case if

bookmark-completion-ignore-case it t.
aquamacs-emacs · Mar 6, 2001 · d97e0d7 · d97e0d7
1 parent 074a888
commit d97e0d7
Showing 1 changed file with 5 additions and 2 deletions.
diff --git 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 <kfogel@red-bean.com>
 ;; Maintainer: Karl Fogel <kfogel@red-bean.com>
@@ -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)