Commit 7e726492 authored by Gerd Moellmann's avatar Gerd Moellmann

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

bookmark-completion-ignore-case it t.
parent 0a61c667
;;; 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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment