Mercurial > emacs
comparison lisp/doc-view.el @ 87412:f6ce12419345
2007-12-26 Tassilo Horn <tassilo@member.fsf.org>
* image-mode.el (image-bookmark-make-cell, image-bookmark-jump):
New functions.
(image-mode): Set bookmark-make-cell-function appropriately.
* doc-view.el (doc-view-bookmark-jump): Correct misspelled arg
name.
| author | Tassilo Horn <tassilo@member.fsf.org> |
|---|---|
| date | Wed, 26 Dec 2007 11:48:37 +0000 |
| parents | 9ac481bc897b |
| children | 0140d3ebb262 |
comparison
equal
deleted
inserted
replaced
| 87411:9ac481bc897b | 87412:f6ce12419345 |
|---|---|
| 1017 | 1017 |
| 1018 ;;;###autoload | 1018 ;;;###autoload |
| 1019 (defun doc-view-bookmark-jump (bmk) | 1019 (defun doc-view-bookmark-jump (bmk) |
| 1020 (save-window-excursion | 1020 (save-window-excursion |
| 1021 (let ((filename (bookmark-get-filename bmk)) | 1021 (let ((filename (bookmark-get-filename bmk)) |
| 1022 (page (cdr (assq 'page (bookmark-get-bookmark-record bookmark))))) | 1022 (page (cdr (assq 'page (bookmark-get-bookmark-record bmk))))) |
| 1023 (find-file filename) | 1023 (find-file filename) |
| 1024 (when (not (eq major-mode 'doc-view-mode)) | 1024 (when (not (eq major-mode 'doc-view-mode)) |
| 1025 (doc-view-toggle-display)) | 1025 (doc-view-toggle-display)) |
| 1026 (doc-view-goto-page page) | 1026 (doc-view-goto-page page) |
| 1027 (cons (current-buffer) 1)))) | 1027 (cons (current-buffer) 1)))) |