mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(bookmark-get-bookmark-record): Signal error for invalid bookmark.

Browse Source
This commit is contained in:
Chong Yidong 2008-10-29 18:22:12 +00:00
parent 6515ca91dc
commit bdacf3958d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/bookmark.el
View File

@ -330,7 +330,8 @@ Otherwise look for the corresponding bookmark in `bookmark-alist'."
(defun bookmark-get-bookmark-record (bookmark)
"Return the guts of the entry for BOOKMARK in `bookmark-alist'.
That is, all information but the name."
(let ((alist (cdr (bookmark-get-bookmark bookmark))))
(let ((alist (cdr (or (bookmark-get-bookmark bookmark)
(error "Invalid bookmark %s" bookmark)))))
;; The bookmark objects can either look like (NAME ALIST) or
;; (NAME . ALIST), so we have to distinguish the two here.
(if (and (null (cdr alist)) (consp (caar alist)))