[AUCTeX-diffs] [elpa] externals/auctex 3244226 2/9: Update all mode lines

[Tassilo Horn]

branch: externals/auctex
commit 324422673f512569b7b8310ebfaa4152eb3438ba
Author: Ikumi Keita <address@hidden>
Commit: Ikumi Keita <address@hidden>

    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.
---
 preview.el.in | 11 ++++-------
 tex-buf.el    |  7 ++-----
 2 files changed, 6 insertions(+), 12 deletions(-)

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)))