mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-03 12:31:32 -08:00
Code Issues Projects Releases Wiki Activity

(doc-view-search-internal): Don't use `incf'.

Browse source 
(bookmark-make-cell-function, bookmark-get-filename)
(bookmark-get-bookmark-record): Declare for compiler.
Move footer text back to end of file.
This commit is contained in:
Glenn Morris 2008-01-04 03:12:17 +00:00
parent b30e04e263
commit 069b4ce3f6
1 changed files with 15 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/doc-view.el
View file

@ -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 @@ the pagenumber and CONTEXTS are all lines of text containing a match."
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 @@ If BACKWARD is non-nil, jump to the previous match."
(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 @@ See the command `doc-view-mode' for more information on this mode."
(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 @@ See the command `doc-view-mode' for more information on this mode."
;; 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 @@ See the command `doc-view-mode' for more information on this mode."
(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