branch: externals/auctex
commit 324422673f512569b7b8310ebfaa4152eb3438ba
Author: Ikumi Keita <ik...@ikumi.que.jp>
Commit: Ikumi Keita <ik...@ikumi.que.jp>
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)))
