diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-03-28 14:51:26 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-03-28 14:51:26 +0000 |
| commit | 28d80dea8718139902af39c99da50015c3ec7184 (patch) | |
| tree | f6b466819e5950777d7887e450f5972518320b99 /lisp/bookmark.el | |
| parent | e719f5aea7acd2ffeb79c359c7be3b2f2ba8e553 (diff) | |
| download | emacs-28d80dea8718139902af39c99da50015c3ec7184.tar.gz | |
(bookmark-get-bookmark): Handle case that
BOOKMARK is not a string.
Diffstat (limited to 'lisp/bookmark.el')
| -rw-r--r-- | lisp/bookmark.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el index ad43d0feae9..8ad4842e28d 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -345,11 +345,13 @@ through a file easier.") (defun bookmark-get-bookmark (bookmark) - "Return the full entry for BOOKMARK in bookmark-alist." - (apply (if bookmark-completion-ignore-case - #'assoc-ignore-case - #'assoc) - (list bookmark bookmark-alist))) + "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)))) (defun bookmark-get-bookmark-record (bookmark) |