[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/bookmark.el,v
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/bookmark.el,v |
Date: |
Wed, 29 Oct 2008 18:22:13 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 08/10/29 18:22:12
Index: bookmark.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/bookmark.el,v
retrieving revision 1.117
retrieving revision 1.118
diff -u -b -r1.117 -r1.118
--- bookmark.el 29 Oct 2008 17:42:49 -0000 1.117
+++ bookmark.el 29 Oct 2008 18:22:12 -0000 1.118
@@ -330,7 +330,8 @@
(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)))