Commit bdacf395 authored by Chong Yidong's avatar Chong Yidong
Browse files

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

parent 6515ca91
......@@ -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)))
......
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