branch: master
commit cba5820cf80ca46b08956d7f94f9b98e0e222db8
Author: Paul Nelson <ultr...@gmail.com>
Commit: Arash Esbati <ar...@gnu.org>
Allow compilation messages to be suppressed
* tex.el (TeX-suppress-compilation-message): New variable.
(TeX-run-command): Use it. (bug#70783)
---
tex.el | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/tex.el b/tex.el
index 0dec8568..e13c02ce 100644
--- a/tex.el
+++ b/tex.el
@@ -7997,6 +7997,9 @@ requires special treatment."
:group 'TeX-command
:type 'boolean)
+(defvar TeX-suppress-compilation-message nil
+ "If non-nil, suppress \"display results of compilation\" message.")
+
(defun TeX-run-command (name command file)
"Create a process for NAME using COMMAND to process FILE.
Return the new process."
@@ -8018,9 +8021,10 @@ Return the new process."
(TeX-output-mode)
(if TeX-show-compilation
(display-buffer buffer)
- (message "Type `%s' to display results of compilation."
- (substitute-command-keys
- "\\<TeX-mode-map>\\[TeX-recenter-output-buffer]")))
+ (unless TeX-suppress-compilation-message
+ (message "Type `%s' to display results of compilation."
+ (substitute-command-keys
+ "\\<TeX-mode-map>\\[TeX-recenter-output-buffer]"))))
(setq TeX-parse-function #'TeX-parse-command)
(setq TeX-command-default default)
(setq TeX-sentinel-function
