branch: externals/auctex
commit a2a4777fbc2cec4c5ef7da74e17bf75b1dae4840
Author: Tassilo Horn <t...@gnu.org>
Commit: Tassilo Horn <t...@gnu.org>
Add TeX-after-TeX-LaTeX-command-finished-hook
* doc/auctex.texi (Modes and Hooks): Document
TeX-after-TeX-LaTeX-command-finished-hook.
* tex-buf.el (TeX-after-TeX-LaTeX-command-finished-hook): New
hook.
(TeX-LaTeX-sentinel): Call it.
---
ChangeLog | 9 +++++++++
doc/auctex.texi | 14 ++++++++++++++
tex-buf.el | 17 ++++++++++++++---
3 files changed, 37 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 826ca12..704ad0c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2015-03-10 Tassilo Horn <t...@gnu.org>
+
+ * doc/auctex.texi (Modes and Hooks): Document
+ TeX-after-TeX-LaTeX-command-finished-hook.
+
+ * tex-buf.el (TeX-after-TeX-LaTeX-command-finished-hook): New
+ hook.
+ (TeX-LaTeX-sentinel): Call it.
+
2015-03-09 Mos� Giordano <m...@gnu.org>
* tex-buf.el (TeX-find-display-help): Display the help also when
diff --git a/doc/auctex.texi b/doc/auctex.texi
index 3f4ba91..6fb6d71 100644
--- a/doc/auctex.texi
+++ b/doc/auctex.texi
@@ -3488,6 +3488,20 @@ if it is relevant for any @AUCTeX{} mode, add it to
@code{TeX-mode-hook}
and if it is relevant for all text modes, append it to
@code{text-mode-hook}.
+Other useful hooks are listed below.
+
+@defvr Variable TeX-after-TeX-LaTeX-command-finished-hook
+Hook which is run after the @TeX{}/@LaTeX{} processor has successfully
+finished compiling your document. (@xref{Processing}, for finding out
+how to compile your document). Each function in the hook is run with
+the compiled output document as its argument.
+
+This is useful for automatically refreshing the viewer after
+re-compilation especially when using Emacs viewers such as DocView or
+PDF Tools.
+@end defvr
+@vindex TeX-after-TeX-LaTeX-command-finished-hook
+
@node Multifile
@section Multifile Documents
@cindex Multifile Documents
diff --git a/tex-buf.el b/tex-buf.el
index 1385f48..c61ffaf 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -557,8 +557,8 @@ QUEUE is non-nil when we are checking for the printer
queue."
(if (listp TeX-output-extension)
(car TeX-output-extension)
(or (TeX-process-get-variable (TeX-active-master)
- 'TeX-output-extension
- TeX-output-extension)
+ 'TeX-output-extension
+ TeX-output-extension)
TeX-output-extension)))
(defun TeX-view-mouse (event)
@@ -603,6 +603,12 @@ the current style options."
;;; Command Hooks
+(defvar TeX-after-TeX-LaTeX-command-finished-hook nil
+ "Hook being run after TeX/LaTeX finished successfully.
+The functions in this hook are run with the DVI/PDF output file
+given as argument. Using this hook can be useful for updating
+the viewer automatically after re-compilation of the document.")
+
(defvar TeX-after-start-process-function nil
"Hooks to run after starting an asynchronous process.
Used by Japanese TeX to set the coding system.")
@@ -1110,7 +1116,12 @@ changed\\. Rerun LaTeX\\." nil t)
(setq TeX-command-next TeX-command-Show))
(t
(message "%s%s%s" name ": problems after " (TeX-current-pages))
- (setq TeX-command-next TeX-command-default))))
+ (setq TeX-command-next TeX-command-default)))
+ (unless TeX-error-list
+ (run-hook-with-args 'TeX-after-TeX-LaTeX-command-finished-hook
+ (with-current-buffer TeX-command-buffer
+ (expand-file-name
+ (TeX-active-master (TeX-output-extension)))))))
;; should go into latex.el? --pg
(defun TeX-BibTeX-sentinel (process name)
