# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1072724648 0
# Node ID 8aa355a609cd66b3af9aa5505b21eb821534654e
# Parent  2843dc1a9a6fb6de1d2ecbe9cb527eaac94e3db7
(bookmark-get-bookmark): Use assoc-string.

diff -r 2843dc1a9a6f -r 8aa355a609cd lisp/bookmark.el
--- a/lisp/bookmark.el	Mon Dec 29 19:03:08 2003 +0000
+++ b/lisp/bookmark.el	Mon Dec 29 19:04:08 2003 +0000
@@ -335,10 +335,7 @@
   "Return the full entry for BOOKMARK in bookmark-alist.
 If BOOKMARK is not a string, return nil."
   (when (stringp bookmark)
-    (apply (if bookmark-completion-ignore-case
-	       #'assoc-ignore-case
-	     #'assoc)
-	   (list bookmark bookmark-alist))))
+    (assoc-string bookmark bookmark-alist bookmark-completion-ignore-case)))
 
 
 (defun bookmark-get-bookmark-record (bookmark)