From 28d80dea8718139902af39c99da50015c3ec7184 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 28 Mar 2001 14:51:26 +0000 Subject: [PATCH] (bookmark-get-bookmark): Handle case that BOOKMARK is not a string. --- lisp/bookmark.el | 12 +++++++----- 1 file 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) -- 2.39.5