diff options
| author | Karl Fogel <kfogel@red-bean.com> | 2008-03-07 05:44:37 +0000 |
|---|---|---|
| committer | Karl Fogel <kfogel@red-bean.com> | 2008-03-07 05:44:37 +0000 |
| commit | e0385bf41a6e719c988e3bf07eacb45f02a65287 (patch) | |
| tree | 7a6b75d193ea692481e1567bdec82b1102ad7592 /lisp/gnus/gnus-bookmark.el | |
| parent | 360bc6282cca18f01c04205c7dbcedd1d679ef3b (diff) | |
| download | emacs-e0385bf41a6e719c988e3bf07eacb45f02a65287.tar.gz emacs-e0385bf41a6e719c988e3bf07eacb45f02a65287.tar.bz2 emacs-e0385bf41a6e719c988e3bf07eacb45f02a65287.zip | |
Change a return type, for greater extensibility. See
http://lists.gnu.org/archive/html/emacs-devel/2007-12/msg01077.html
and its thread for discussion leading to this change.
* emacs-cvs/lisp/bookmark.el:
(bookmark-jump-noselect): Return an alist instead of a dotted pair.
(bookmark-jump, bookmark-jump-other-window, bookmark-insert)
(bookmark-bmenu-2-window, bookmark-bmenu-other-window)
(bookmark-bmenu-switch-other-window): Adjust accordingly.
(bookmark-make-cell-function): Adjust documentation accordingly.
* emacs-cvs/lisp/image-mode.el
(image-bookmark-jump): Adjust return type accordingly; document.
* emacs-cvs/lisp/doc-view.el
(doc-view-bookmark-jump): Adjust return type accordingly; document.
Diffstat (limited to 'lisp/gnus/gnus-bookmark.el')
| -rw-r--r-- | lisp/gnus/gnus-bookmark.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/gnus/gnus-bookmark.el b/lisp/gnus/gnus-bookmark.el index 6b0bfebbabc..41b124e697a 100644 --- a/lisp/gnus/gnus-bookmark.el +++ b/lisp/gnus/gnus-bookmark.el @@ -207,13 +207,13 @@ So the cdr of each bookmark is an alist too.") (setq gnus-bookmark-alist (cons (list (gnus-bookmark-remove-properties bmk-name) - (gnus-bookmark-make-cell + (gnus-bookmark-make-record group message-id author date subject annotation)) gnus-bookmark-alist)))) (gnus-bookmark-bmenu-surreptitiously-rebuild-list) (gnus-bookmark-write-file)) -(defun gnus-bookmark-make-cell +(defun gnus-bookmark-make-record (group message-id author date subject annotation) "Return the record part of a new bookmark, given GROUP MESSAGE-ID AUTHOR DATE SUBJECT and ANNOTATION." (let ((the-record @@ -288,9 +288,9 @@ So the cdr of each bookmark is an alist too.") (let* ((bookmark (or bmk-name (completing-read "Jump to bookmarked article: " gnus-bookmark-alist))) - (bmk-cell (cadr (assoc bookmark gnus-bookmark-alist))) - (group (cdr (assoc 'group bmk-cell))) - (message-id (cdr (assoc 'message-id bmk-cell)))) + (bmk-record (cadr (assoc bookmark gnus-bookmark-alist))) + (group (cdr (assoc 'group bmk-record))) + (message-id (cdr (assoc 'message-id bmk-record)))) (when group (unless (get-buffer gnus-group-buffer) (gnus-no-server)) |