mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

(bookmark-get-bookmark): Use assoc-string.

Browse Source
This commit is contained in:
Richard M. Stallman 2003-12-29 19:04:08 +00:00
parent 52f2cda2f4
commit d09596261d
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/bookmark.el
View File

@ -335,10 +335,7 @@ through a file easier.")
"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)