Mercurial > emacs
changeset 87556:39204305bf6f
(doc-view-search-internal): Don't use `incf'.
(bookmark-make-cell-function, bookmark-get-filename)
(bookmark-get-bookmark-record): Declare for compiler.
Move footer text back to end of file.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 04 Jan 2008 03:12:17 +0000 |
| parents | 30d07f600825 |
| children | 9ada3b121e1f |
| files | lisp/doc-view.el |
| diffstat | 1 files changed, 15 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/doc-view.el Fri Jan 04 03:11:17 2008 +0000 +++ b/lisp/doc-view.el Fri Jan 04 03:12:17 2008 +0000 @@ -1,6 +1,6 @@ ;;; doc-view.el --- View PDF/PostScript/DVI files in Emacs -;; Copyright (C) 2007 Free Software Foundation, Inc. +;; Copyright (C) 2007, 2008 Free Software Foundation, Inc. ;; ;; Author: Tassilo Horn <tassilo@member.fsf.org> ;; Maintainer: Tassilo Horn <tassilo@member.fsf.org> @@ -780,7 +780,7 @@ matches) (while (re-search-forward (concat "\\(?:\\([ ]\\)\\|\\(" regexp "\\)\\)") nil t) - (when (match-string 1) (incf page)) + (when (match-string 1) (setq page (1+ page))) (when (match-string 2) (if (/= page lastpage) (push (cons page @@ -916,6 +916,8 @@ (file-name-extension buffer-file-name)" files is missing. " "Type \\[doc-view-toggle-display] to switch to an editing mode."))))) +(defvar bookmark-make-cell-function) + ;;;###autoload (defun doc-view-mode () "Major mode in DocView buffers. @@ -991,13 +993,7 @@ (interactive) (dired doc-view-cache-directory)) -(provide 'doc-view) -;; Local Variables: -;; mode: outline-minor -;; End: - -;; arch-tag: 5d6e5c5e-095f-489e-b4e4-1ca90a7d79be ;;;; Bookmark integration (defun doc-view-bookmark-make-cell (annotation &rest args) @@ -1015,6 +1011,10 @@ ;; Finally, return the completed record. the-record)) + +(declare-function bookmark-get-filename "bookmark" (bookmark)) +(declare-function bookmark-get-bookmark-record "bookmark" (bookmark)) + ;;;###autoload (defun doc-view-bookmark-jump (bmk) ;; This implements the `handler' function interface for record type @@ -1028,5 +1028,12 @@ (doc-view-goto-page page) `((buffer ,(current-buffer)) (position ,1))))) + +(provide 'doc-view) + +;; Local Variables: +;; mode: outline-minor +;; End: + ;; arch-tag: 5d6e5c5e-095f-489e-b4e4-1ca90a7d79be ;;; doc-view.el ends here