diff options
| author | Karl Fogel <kfogel@red-bean.com> | 2008-01-02 07:49:04 +0000 |
|---|---|---|
| committer | Karl Fogel <kfogel@red-bean.com> | 2008-01-02 07:49:04 +0000 |
| commit | 2c7bd524fd05981c58dc4082ee33965cedc4067d (patch) | |
| tree | f361f4569fb0ad6f90314f599bcf436e4f4f2b73 /lisp/doc-view.el | |
| parent | 604ef7a09c9c029c9ee3b3fbdc89914dfb6fef84 (diff) | |
| download | emacs-2c7bd524fd05981c58dc4082ee33965cedc4067d.tar.gz | |
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/doc-view.el')
| -rw-r--r-- | lisp/doc-view.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/doc-view.el b/lisp/doc-view.el index 388d30b381b..67372f4c621 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el @@ -1017,6 +1017,8 @@ See the command `doc-view-mode' for more information on this mode." ;;;###autoload (defun doc-view-bookmark-jump (bmk) + ;; This implements the `handler' function interface for record type + ;; returned by `bookmark-make-cell-function', which see. (save-window-excursion (let ((filename (bookmark-get-filename bmk)) (page (cdr (assq 'page (bookmark-get-bookmark-record bmk))))) @@ -1024,6 +1026,6 @@ See the command `doc-view-mode' for more information on this mode." (when (not (eq major-mode 'doc-view-mode)) (doc-view-toggle-display)) (doc-view-goto-page page) - (cons (current-buffer) 1)))) + `((buffer ,(current-buffer)) (position ,1))))) ;;; doc-view.el ends here |