diff options
| author | Karl Heuer | 1995-04-25 22:32:18 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-04-25 22:32:18 +0000 |
| commit | 048ea441e2e43d9bad6fce4c890e93310ca3c998 (patch) | |
| tree | ae2388467eee25298eed479efe57fe0f2e063293 | |
| parent | 45d8d39ff8704fc50b8331bbaa2b4bf84b95c2c5 (diff) | |
| download | emacs-048ea441e2e43d9bad6fce4c890e93310ca3c998.tar.gz emacs-048ea441e2e43d9bad6fce4c890e93310ca3c998.zip | |
(dired-omit-expunge): Use force-mode-line-update.
| -rw-r--r-- | lisp/dired-x.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/dired-x.el b/lisp/dired-x.el index c8aaf780fef..bf066123bf7 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el | |||
| @@ -588,8 +588,7 @@ This functions works by temporarily binding `dired-marker-char' to | |||
| 588 | (if (dired-mark-unmarked-files omit-re nil nil dired-omit-localp) | 588 | (if (dired-mark-unmarked-files omit-re nil nil dired-omit-localp) |
| 589 | (progn | 589 | (progn |
| 590 | (setq count (dired-do-kill-lines nil "Omitted %d line%s.")) | 590 | (setq count (dired-do-kill-lines nil "Omitted %d line%s.")) |
| 591 | ;; Force an update of modeline. | 591 | (force-mode-line-update)) |
| 592 | (set-buffer-modified-p (buffer-modified-p))) | ||
| 593 | (message "(Nothing to omit)")))) | 592 | (message "(Nothing to omit)")))) |
| 594 | ;; Try to preserve modified state of buffer. So `%*' doesn't appear | 593 | ;; Try to preserve modified state of buffer. So `%*' doesn't appear |
| 595 | ;; in mode-line of omitted buffers. | 594 | ;; in mode-line of omitted buffers. |