mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-22 10:26:20 +00:00
Code Issues Releases Activity

(dired-omit-expunge): Use force-mode-line-update.

Browse Source
This commit is contained in:
Karl Heuer 1995-04-25 22:32:18 +00:00
parent 45d8d39ff8
commit 048ea441e2
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/dired-x.el
View File

@ -588,8 +588,7 @@ This functions works by temporarily binding `dired-marker-char' to
(if (dired-mark-unmarked-files omit-re nil nil dired-omit-localp)
(progn
(setq count (dired-do-kill-lines nil "Omitted %d line%s."))
;; Force an update of modeline.
(set-buffer-modified-p (buffer-modified-p)))
(force-mode-line-update))
(message "(Nothing to omit)"))))
;; Try to preserve modified state of buffer. So `%*' doesn't appear
;; in mode-line of omitted buffers.