Install org-mode version 7.3

[gnu-emacs] / lisp / org / org-docview.el

diff --git a/lisp/org/org-docview.el b/lisp/org/org-docview.el
index 0ef5df0fda6ce859664c907ff14c855362963fc3..0c77b690765579456b3f5373af3a7cb2f0266c2c 100644 (file)
--- a/lisp/org/org-docview.el
+++ b/lisp/org/org-docview.el
@@ -5,7 +5,7 @@
 ;; Author: Jan Böcker <jan.boecker at jboecker dot de>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 7.01
+;; Version: 7.3
 ;;
 ;; This file is part of GNU Emacs.
 ;;
@@ -45,7 +45,10 @@
 
 
 (require 'org)
-(eval-when-compile (require 'doc-view))        ; doc-view-current-page macro
+
+(declare-function doc-view-goto-page "ext:doc-view" (page))
+(declare-function image-mode-window-get "ext:image-mode"
+                 (prop &optional winprops))
 
 (autoload 'doc-view-goto-page "doc-view")
 
@@ -66,7 +69,7 @@
   (when (eq major-mode 'doc-view-mode)
     ;; This buffer is in doc-view-mode
     (let* ((path buffer-file-name)
-          (page (doc-view-current-page))
+          (page (image-mode-window-get 'page))
           (link (concat "docview:" path "::" (number-to-string page)))
           (description ""))
       (org-store-link-props