[Emacs-diffs] Changes to emacs/lisp/doc-view.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/01/04 03:12:17

Index: doc-view.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/doc-view.el,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -b -r1.30 -r1.31
--- doc-view.el 2 Jan 2008 14:23:22 -0000       1.30
+++ doc-view.el 4 Jan 2008 03:12:17 -0000       1.31
@@ -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 <address@hidden>
 ;; Maintainer: Tassilo Horn <address@hidden>
@@ -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