From 048ea441e2e43d9bad6fce4c890e93310ca3c998 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 25 Apr 1995 22:32:18 +0000 Subject: [PATCH] (dired-omit-expunge): Use force-mode-line-update. --- lisp/dired-x.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/dired-x.el b/lisp/dired-x.el index c8aaf780fe..bf066123bf 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 (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. -- 2.20.1