(byte-recompile-directory): Use force-mode-line-update.

[gnu-emacs] / lisp / emacs-lisp / bytecomp.el

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index e383dc13d37b73638dabb0666160cd4a5c4640b7..333fde26491a6412965b24f78271b3e2116f4177 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1123,7 +1123,7 @@ A nonzero prefix argument also means ask about each subdirectory."
   (if noninteractive
       nil
     (save-some-buffers)
-    (set-buffer-modified-p (buffer-modified-p))) ;Update the mode line.
+    (force-mode-line-update))
   (let ((directories (list (expand-file-name directory)))
        (file-count 0)
        (dir-count 0)