branch: externals/auctex
commit b858aae89c9b810b6f62627620056b806c07f065
Author: Tassilo Horn <t...@gnu.org>
Commit: Tassilo Horn <t...@gnu.org>
Make TeX-pdf-tools-sync-view work with region files
* tex.el (TeX-pdf-tools-sync-view): Make it work with
`TeX-command-region'.
---
ChangeLog | 5 +++++
tex.el | 27 ++++++++++++++++-----------
2 files changed, 21 insertions(+), 11 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index f5f9afa..6b88e3a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
2015-02-09 Tassilo Horn <t...@gnu.org>
+ * tex.el (TeX-pdf-tools-sync-view): Make it work with
+ `TeX-command-region'.
+
+2015-02-09 Tassilo Horn <t...@gnu.org>
+
* tex.el (TeX-pdf-tools-sync-view): Simplify function.
2015-02-09 Arash Esbati <esb...@gmx.de>
diff --git a/tex.el b/tex.el
index 44ddb9f..05d1b4d 100644
--- a/tex.el
+++ b/tex.el
@@ -1097,18 +1097,23 @@ search are checked, too."
spec))))))))
(defun TeX-pdf-tools-sync-view ()
- "Focus the focused page/paragraph in `pdf-view-mode'. Used by
-default for the PDF Tools viewer entry in
-`TeX-view-program-list-builtin'."
+ "Focus the focused page/paragraph in `pdf-view-mode'.
+If `TeX-source-correlate-mode' is disabled, only find and pop to
+the output PDF file. Used by default for the PDF Tools viewer
+entry in `TeX-view-program-list-builtin'."
(unless (featurep 'pdf-tools)
- (error "PDF Tools are not installed!"))
- (let* ((doc (concat file "." (TeX-output-extension)))
- (buf (or (find-buffer-visiting doc)
- (find-file-noselect doc))))
- (if (and TeX-source-correlate-mode
- (fboundp 'pdf-sync-forward-search))
- (pdf-sync-forward-search)
- (pop-to-buffer buf))))
+ (error "PDF Tools are not installed"))
+ (unless TeX-PDF-mode
+ (error "PDF Tools only work with PDF output"))
+ (if (and TeX-source-correlate-mode
+ (fboundp 'pdf-sync-forward-search))
+ (with-current-buffer (or (find-buffer-visiting
+ (concat file "." TeX-default-extension))
+ (current-buffer))
+ (pdf-sync-forward-search))
+ (let ((pdf (concat file "." (TeX-output-extension))))
+ (pop-to-buffer (or (find-buffer-visiting pdf)
+ (find-file-noselect pdf))))))
(defvar url-unreserved-chars)
