From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 25 Apr 1995 22:32:49 +0000 (+0000)
Subject: (byte-recompile-directory): Use force-mode-line-update.
X-Git-Tag: emacs-19.34~4268
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ba90138812d08f189516616c2bbb793c896f7275;p=emacs.git

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

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index e383dc13d37..333fde26491 100644
--- 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)