[AUCTeX-diffs] GNU AUCTeX branch, master, updated. e032df90e792ef9b85be3e8e3528c947ecdb5b6a

[Ikumi Keita]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU AUCTeX".

The branch, master has been updated
       via  e032df90e792ef9b85be3e8e3528c947ecdb5b6a (commit)
      from  238dad67f937da217a75518b9fffe734830b530b (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit e032df90e792ef9b85be3e8e3528c947ecdb5b6a
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Date:   Sun Nov 7 17:23:26 2021 +0900

    Fix simultaneity
    
    * tex-buf.el (TeX-command): Keep the value of
    `TeX-current-process-region-p' as buffer-local value of
    `TeX--this-process-region-flag' in process buffer.
    (TeX-command-sentinel): Call sentinel where
    `TeX-current-process-region-p' has its own value when the process
    started.
    (TeX-current-process-region-p): Move `defvar' before its first usage.
    (TeX--this-process-region-flag): New variable.

diff --git a/tex-buf.el b/tex-buf.el
index eeff2fc0..f5a2d22e 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -285,7 +285,6 @@ at bottom if LINE is nil."
 ;; far down (i.e. further down than their first use), so we have to pre-declare
 ;; them here to explain it to the compiler.
 ;; We should move those vars's definitions earlier instead!
-(defvar TeX-current-process-region-p)
 (defvar TeX-save-query)
 (defvar TeX-parse-function)
 (defvar TeX-sentinel-function)
@@ -487,6 +486,11 @@ Do you want to select one of these engines? "
   :group 'TeX-command
   :type 'integer)
 
+(defvar TeX-current-process-region-p nil
+  "Non-nil means that the last TeX command is on a region.")
+(defvar-local TeX--this-process-region-flag nil
+  "Per process value of `TeX-current-process-region-p'.")
+
 (defun TeX-command (name file-fn &optional override-confirm)
   "Run command NAME on the file returned by calling FILE-FN.
 
@@ -556,7 +560,9 @@ remember to add /Library/TeX/texbin/ to your PATH"
     ;; Now start the process
     (let ((file (funcall file-fn)))
       (TeX-process-set-variable file 'TeX-command-next TeX-command-Show)
-      (funcall hook name command file))))
+      (funcall hook name command file)
+      (TeX-process-set-variable file 'TeX--this-process-region-flag
+                                TeX-current-process-region-p))))
 
 (defun TeX-command-expand (command &optional list)
   "Expand COMMAND for `TeX-active-master' as described in LIST.
@@ -1453,8 +1459,8 @@ Insert MSG with some additional information."
              (TeX-command-mode-line process)
              (setq TeX-command-next TeX-command-Show)
              (goto-char (point-min))
-             (apply TeX-sentinel-function process name nil)
-
+             (let ((TeX-current-process-region-p 
TeX--this-process-region-flag))
+               (funcall TeX-sentinel-function process name))
 
              ;; If buffer and mode line will show that the process
              ;; is dead, we can delete it now.  Otherwise it
@@ -2028,9 +2034,6 @@ command."
 
 ;;; Active Process
 
-(defvar TeX-current-process-region-p nil
-  "Non-nil means that the last TeX command is on a region.")
-
 (defun TeX-active-process ()
   "Return the active process for the current buffer."
   (TeX-process (TeX-active-master)))

-----------------------------------------------------------------------

Summary of changes:
 tex-buf.el | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX