(gud-sentinel): Use force-mode-line-update.

1 files changed, 1 insertions, 2 deletions

diff --git a/lisp/gud.el b/lisp/gud.el
index 94daa423404..859c0e0bd40 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -1217,8 +1217,7 @@ comint mode, which see."
                (progn
                  ;; Write something in *compilation* and hack its mode line,
                  (set-buffer (process-buffer proc))
-                 ;; Force mode line redisplay soon
-                 (set-buffer-modified-p (buffer-modified-p))
+                 (force-mode-line-update)
                  (if (eobp)
                      (insert ?\n mode-name " " msg)
                    (save-excursion