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 | 03e26a796d29cdfef73517b7292c54268a4fdb99 (patch) | |
| tree | 3af0c0546b6af2e2d46016eaf2e7815a7f958d1e /lisp/doc-view.el | |
| parent | aacde24f5cdebc6d7ccb2f50a9d8e413906c4497 (diff) | |
| download | emacs-03e26a796d29cdfef73517b7292c54268a4fdb99.tar.gz emacs-03e26a796d29cdfef73517b7292c54268a4fdb99.tar.bz2 emacs-03e26a796d29cdfef73517b7292c54268a4fdb99.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/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 |