# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1199416337 0
# Node ID 39204305bf6f6bfce41c4fb807154cb401e32ec9
# Parent  30d07f600825d8ec64d75f760dfe0ba104eb06da
(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.

diff -r 30d07f600825 -r 39204305bf6f lisp/doc-view.el
--- 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