diff options
| author | Karl Heuer | 1995-04-25 22:32:49 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-04-25 22:32:49 +0000 |
| commit | ba90138812d08f189516616c2bbb793c896f7275 (patch) | |
| tree | 8fa8264dd9bf7aa6b283fb057db12e5b91519398 | |
| parent | 2fc86734b718a834630ffbfbad4157b7cd42f71c (diff) | |
| download | emacs-ba90138812d08f189516616c2bbb793c896f7275.tar.gz emacs-ba90138812d08f189516616c2bbb793c896f7275.zip | |
(byte-recompile-directory): Use force-mode-line-update.
| -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." | |||
| 1123 | (if noninteractive | 1123 | (if noninteractive |
| 1124 | nil | 1124 | nil |
| 1125 | (save-some-buffers) | 1125 | (save-some-buffers) |
| 1126 | (set-buffer-modified-p (buffer-modified-p))) ;Update the mode line. | 1126 | (force-mode-line-update)) |
| 1127 | (let ((directories (list (expand-file-name directory))) | 1127 | (let ((directories (list (expand-file-name directory))) |
| 1128 | (file-count 0) | 1128 | (file-count 0) |
| 1129 | (dir-count 0) | 1129 | (dir-count 0) |