Mercurial > emacs

changeset 36588:790b60942664

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(bookmark-get-bookmark): Use assoc-ignore-case if bookmark-completion-ignore-case it t.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 06 Mar 2001 15:36:19 +0000
parents d9bb01d5dbbb
children 8f0978ad14ea
files lisp/bookmark.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/bookmark.el	Tue Mar 06 15:30:15 2001 +0000
+++ b/lisp/bookmark.el	Tue Mar 06 15:36:19 2001 +0000
@@ -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 @@
 
 (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)