[AUCTeX-diffs] Changes to auctex/tex.el

[Ralf Angeli]

Index: auctex/tex.el
diff -u auctex/tex.el:5.552 auctex/tex.el:5.553
--- auctex/tex.el:5.552 Thu Dec  8 19:37:16 2005
+++ auctex/tex.el       Wed Dec 28 15:01:42 2005
@@ -443,7 +443,7 @@
     ("^dvi$" "^legalpaper$" "%(o?)xdvi %dS -paper legal %d")
     ("^dvi$" "^executivepaper$" "%(o?)xdvi %dS -paper 7.25x10.5in %d")
     ("^dvi$" "." "%(o?)xdvi %dS %d")
-    ("^pdf$" "." "xpdf %o")
+    ("^pdf$" "." "xpdf %o %(outpage)")
     ("^html?$" "." "netscape %o"))
   "List of output file extensions and view options.
 
@@ -519,6 +519,9 @@
     ("%S" TeX-source-specials-expand-options)
     ("%dS" TeX-source-specials-view-expand-options)
     ("%cS" TeX-source-specials-view-expand-client)
+    ("%(outpage)" (lambda () (if TeX-sync-output-page-function
+                                (funcall TeX-sync-output-page-function)
+                              "")))
     ;; `file' means to call `TeX-master-file' or `TeX-region-file'
     ("%s" file nil t)
     ("%t" file t t)
@@ -1031,6 +1034,12 @@
                  (concat " " TeX-source-specials-view-editor-flags))))
     ""))
 
+(defvar TeX-sync-output-page-function nil
+  "Symbol of function returning an output page relating to buffer position.
+The function should take no arguments and return the page numer
+as a string.")
+(make-variable-buffer-local 'TeX-sync-output-page-function)
+
 ;;;
 
 (defvar TeX-mode-p nil