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/image-mode.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/image-mode.el')
| -rw-r--r-- | lisp/image-mode.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/image-mode.el b/lisp/image-mode.el index 4041db8ebf2..98f4fa81968 100644 --- a/lisp/image-mode.el +++ b/lisp/image-mode.el @@ -375,6 +375,8 @@ and showing the image as an image." ;;;###autoload (defun image-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)) (type (cdr (assq 'image-type (bookmark-get-bookmark-record bmk)))) @@ -384,7 +386,7 @@ and showing the image as an image." (image-toggle-display)) (when (string= image-type "text") (goto-char pos)) - (cons (current-buffer) pos)))) + `((buffer ,(current-buffer)) (position ,(point)))))) (provide 'image-mode) |