diff options
| -rw-r--r-- | lisp/bookmark.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el index a6ebc99b6f7..07ec40ec827 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el | |||
| @@ -330,7 +330,8 @@ Otherwise look for the corresponding bookmark in `bookmark-alist'." | |||
| 330 | (defun bookmark-get-bookmark-record (bookmark) | 330 | (defun bookmark-get-bookmark-record (bookmark) |
| 331 | "Return the guts of the entry for BOOKMARK in `bookmark-alist'. | 331 | "Return the guts of the entry for BOOKMARK in `bookmark-alist'. |
| 332 | That is, all information but the name." | 332 | That is, all information but the name." |
| 333 | (let ((alist (cdr (bookmark-get-bookmark bookmark)))) | 333 | (let ((alist (cdr (or (bookmark-get-bookmark bookmark) |
| 334 | (error "Invalid bookmark %s" bookmark))))) | ||
| 334 | ;; The bookmark objects can either look like (NAME ALIST) or | 335 | ;; The bookmark objects can either look like (NAME ALIST) or |
| 335 | ;; (NAME . ALIST), so we have to distinguish the two here. | 336 | ;; (NAME . ALIST), so we have to distinguish the two here. |
| 336 | (if (and (null (cdr alist)) (consp (caar alist))) | 337 | (if (and (null (cdr alist)) (consp (caar alist))) |