mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
bookmark-completion-ignore-case it t.
This commit is contained in:
Gerd Moellmann 2001-03-06 15:36:19 +00:00
parent 0a61c66701
commit 7e72649221
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/bookmark.el
View file

@ -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)