diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-04-25 22:32:49 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-04-25 22:32:49 +0000 |
| commit | ba90138812d08f189516616c2bbb793c896f7275 (patch) | |
| tree | 8fa8264dd9bf7aa6b283fb057db12e5b91519398 /lisp/emacs-lisp | |
| parent | 2fc86734b718a834630ffbfbad4157b7cd42f71c (diff) | |
| download | emacs-ba90138812d08f189516616c2bbb793c896f7275.tar.gz emacs-ba90138812d08f189516616c2bbb793c896f7275.tar.bz2 emacs-ba90138812d08f189516616c2bbb793c896f7275.zip | |
(byte-recompile-directory): Use force-mode-line-update.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |