auctex-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 406eb61f: Make user query before killing a process optional


From: Arash Esbati
Subject: master 406eb61f: Make user query before killing a process optional
Date: Wed, 13 Mar 2024 08:38:15 -0400 (EDT)

branch: master
commit 406eb61fc156d2c4f76a1cfc75330299fcca18c4
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>

    Make user query before killing a process optional
    
    * doc/auctex.texi (Starting a Command):
    * doc/changes.texi: Announce and document the new variable.
    
    * tex.el (TeX-kill-process-without-query): New custom variable.
    (TeX-process-check): Use it.  (bug#34645)
---
 doc/auctex.texi  |  6 ++++++
 doc/changes.texi |  5 +++++
 tex.el           | 23 ++++++++++++++++-------
 3 files changed, 27 insertions(+), 7 deletions(-)

diff --git a/doc/auctex.texi b/doc/auctex.texi
index 91b8c40a..b499c63b 100644
--- a/doc/auctex.texi
+++ b/doc/auctex.texi
@@ -3085,6 +3085,12 @@ The name of the file for temporarily storing the text 
when formatting
 the current region.
 @end defopt
 
+@defopt TeX-kill-process-without-query
+This boolean option controls whether @AUCTeX{} should ask user before
+aborting a running process for a @TeX{} document.  It can be set as a
+file-local variable.
+@end defopt
+
 @defopt TeX-header-end
 A regular expression matching the end of the header.  By default, this
 is @samp{\begin@{document@}} in @LaTeX{} mode and @samp{%**end of
diff --git a/doc/changes.texi b/doc/changes.texi
index 7fdf5d46..2ac2ee05 100644
--- a/doc/changes.texi
+++ b/doc/changes.texi
@@ -177,6 +177,11 @@ New custom variable @code{LaTeX-flymake-chktex-options} is 
provided to
 enable or disable specific warnings of @code{chktex} backend used by
 Flymake.
 
+@item
+The boolean custom variable @code{TeX-kill-process-without-query} can be
+used to disable the user query before aborting a running process for a
+@TeX{} document.  Default is @code{nil}.
+
 @item
 @AUCTeX{} now requires GNU Emacs 27.1 or higher.
 @end itemize
diff --git a/tex.el b/tex.el
index d53ef39b..da2f91fe 100644
--- a/tex.el
+++ b/tex.el
@@ -8769,22 +8769,31 @@ Return nil only if no process buffer exists."
           t)
       nil)))
 
+(defcustom TeX-kill-process-without-query nil
+  "If non-nil, abort a running document process without user query."
+  :type 'boolean
+  :local t
+  :safe #'booleanp
+  :group 'TeX-command)
+
 (defun TeX-process-check (name)
   "Check if a process for the TeX document NAME already exists.
 If so, give the user the choice of aborting the process or the current
-command."
+command.  If the value of `TeX-kill-process-without-query' is non-nil,
+user query is skipped and the process is aborted right away."
   (let (process)
     (while (and (setq process (TeX-process name))
                 (eq (process-status process) 'run))
       (cond
-       ((yes-or-no-p (concat "Process `"
-                             (process-name process)
-                             "' for document `"
-                             name
-                             "' running, kill it? "))
+       ((or TeX-kill-process-without-query
+            (yes-or-no-p (concat "Process `"
+                                 (process-name process)
+                                 "' for document `"
+                                 name
+                                 "' running, kill it? ")))
         (delete-process process))
        ((eq (process-status process) 'run)
-           (error "Cannot have two processes for the same document"))))))
+        (error "Cannot have two processes for the same document"))))))
 
 (defun TeX-process-buffer-name (name)
   "Return name of AUCTeX buffer associated with the document NAME."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]