Mercurial > emacs
changeset 8713:fad4e60c964d
(dired-omit-expunge): Avoid setting buffer modified
unless it was modified before and some mark is set so `%*' won't
appear in mode-line of omitted buffers.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 06 Sep 1994 06:56:47 +0000 |
| parents | 9bc99cd7a6ee |
| children | a52d8873fbdf |
| files | lisp/dired-x.el |
| diffstat | 1 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired-x.el Tue Sep 06 05:29:15 1994 +0000 +++ b/lisp/dired-x.el Tue Sep 06 06:56:47 1994 +0000 @@ -3,8 +3,8 @@ ;; Author: Sebastian Kremer <sk@thp.uni-koeln.de> ;; Lawrence R. Dodd <dodd@roebling.poly.edu> ;; Maintainer: Lawrence R. Dodd <dodd@roebling.poly.edu> -;; Version: 2.37 -;; Date: 1994/06/28 15:53:34 +;; Version: 2.37+ +;; Date: 1994/08/18 19:27:42 ;; Keywords: dired extensions ;; Copyright (C) 1993, 1994 Free Software Foundation @@ -575,6 +575,7 @@ (interactive "sOmit files (regexp): ") (if dired-omit-files-p (let ((omit-re (or regexp (dired-omit-regexp))) + (old-modified-p (buffer-modified-p)) count) (or (string= omit-re "") (let ((dired-marker-char dired-omit-marker-char)) @@ -585,6 +586,12 @@ ;; Force an update of modeline. (set-buffer-modified-p (buffer-modified-p))) (message "(Nothing to omit)")))) + ;; Try to preserve modified state of buffer. So `%*' doesn't appear + ;; in mode-line of omitted buffers. + (set-buffer-modified-p (and old-modified-p + (save-excursion + (goto-char (point-min)) + (re-search-forward dired-re-mark nil t)))) count))) (defun dired-omit-regexp () @@ -1300,7 +1307,7 @@ (interactive) (require 'man) (let ((file (dired-get-filename)) - (manual-program "nroff -man -h")) + (manual-program "nroff -man -h")) (Man-getpage-in-background file))) ;;; Run Info on files.