[AUCTeX-diffs] GNU AUCTeX branch, master, updated. 324422673f512569b7b8310ebfaa4152eb3438ba

[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  324422673f512569b7b8310ebfaa4152eb3438ba (commit)
      from  a12c790ff9cc739bbf74eb4ba69ad655978a6080 (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 324422673f512569b7b8310ebfaa4152eb3438ba
Author: Ikumi Keita <address@hidden>
Date:   Sat May 9 20:31:26 2020 +0900

    Update all mode lines
    
    * tex-buf.el (TeX-command-sentinel): Supply argument t for
    `force-mode-line-update' and discard useless `with-current-buffer'.
    * preview.el.in: Replace all
    `(set-buffer-modified-p (buffer-modified-p))' with
    `(force-mode-line-update)' and remove `sit-for' calls accompanying
    them.

diff --git a/preview.el.in b/preview.el.in
index 8094d85..6163db1 100644
--- a/preview.el.in
+++ b/preview.el.in
@@ -753,7 +753,7 @@ Gets the usual PROCESS and STRING parameters, see
       (setq mode-name "Preview-Ghostscript")
       (push process compilation-in-progress)
       (TeX-command-mode-line process)
-      (set-buffer-modified-p (buffer-modified-p))
+      (force-mode-line-update)
       process)))
 
 (defun preview-gs-open (&optional setup)
@@ -3189,8 +3189,7 @@ and `preview-colors' are set as given."
          (sit-for 0)
          process)
       (setq mode-line-process ": run")
-      (set-buffer-modified-p (buffer-modified-p))
-      (sit-for 0)                              ; redisplay
+      (force-mode-line-update)
       (call-process TeX-shell nil (current-buffer) nil
                    TeX-shell-command-option
                    command))))
@@ -3233,8 +3232,7 @@ If FAST is set, do a fast conversion."
          (sit-for 0)
          process)
       (setq mode-line-process ": run")
-      (set-buffer-modified-p (buffer-modified-p))
-      (sit-for 0)                              ; redisplay
+      (force-mode-line-update)
       (call-process TeX-shell nil (current-buffer) nil
                    TeX-shell-command-option
                    command))))
@@ -3277,8 +3275,7 @@ If FAST is set, do a fast conversion."
          (sit-for 0)
          process)
       (setq mode-line-process ": run")
-      (set-buffer-modified-p (buffer-modified-p))
-      (sit-for 0)                              ; redisplay
+      (force-mode-line-update)
       (call-process TeX-shell nil (current-buffer) nil
                    TeX-shell-command-option
                    command))))
diff --git a/tex-buf.el b/tex-buf.el
index 7a4e0da..ff6be7e 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -1482,11 +1482,8 @@ reasons.  Use `TeX-run-function' instead."
             (delete-process process))
 
           ;; Force mode line redisplay soon
-          ;; Do this in the command buffer so that "Next Error" item
-          ;; will appear in the menu bar just after compilation.
-          ;; (bug#38058)
-          (with-current-buffer TeX-command-buffer
-            (force-mode-line-update)))))
+          ;; Do this in all buffers (bug#38058 and bug#40965)
+          (force-mode-line-update t))))
 
   (setq compilation-in-progress (delq process compilation-in-progress)))
 

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

Summary of changes:
 preview.el.in | 11 ++++-------
 tex-buf.el    |  7 ++-----
 2 files changed, 6 insertions(+), 12 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX