Mercurial > emacs
changeset 112205:4ffba967bb86
* dired-x.el (dired-omit-verbose): New defcustom that allows
disabling the omit messages.
(dired-omit-expunge): Use it.
| author | Tassilo Horn <tassilo@member.fsf.org> |
|---|---|
| date | Thu, 13 Jan 2011 16:44:41 +0100 |
| parents | 1d46a03d3486 |
| children | cf323f3bfe7f |
| files | lisp/ChangeLog lisp/dired-x.el |
| diffstat | 2 files changed, 20 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jan 13 22:12:10 2011 +1100 +++ b/lisp/ChangeLog Thu Jan 13 16:44:41 2011 +0100 @@ -1,3 +1,9 @@ +2011-01-13 Tassilo Horn <tassilo@member.fsf.org> + + * dired-x.el (dired-omit-verbose): New defcustom that allows + disabling the omit messages. + (dired-omit-expunge): Use it. + 2011-01-13 Christian Ohler <ohler@gnu.org> * emacs-lisp/ert.el, emacs-lisp/ert-x.el: New files.
--- a/lisp/dired-x.el Thu Jan 13 22:12:10 2011 +1100 +++ b/lisp/dired-x.el Thu Jan 13 16:44:41 2011 +0100 @@ -189,6 +189,12 @@ :type 'regexp :group 'dired-x) +(defcustom dired-omit-verbose t + "When non-nil, show messages when omitting files. +When nil, don't show messages." + :type 'boolean + :group 'dired-x) + (defcustom dired-find-subdir nil ; t is pretty near to DWIM... "If non-nil, Dired always finds a directory in a buffer of its own. If nil, Dired finds the directory as a subdirectory in some other buffer @@ -613,8 +619,9 @@ (not dired-omit-size-limit) (< (buffer-size) dired-omit-size-limit) (progn - (message "Not omitting: directory larger than %d characters." - dired-omit-size-limit) + (when dired-omit-verbose + (message "Not omitting: directory larger than %d characters." + dired-omit-size-limit)) (setq dired-omit-mode nil) nil))) (let ((omit-re (or regexp (dired-omit-regexp))) @@ -622,12 +629,14 @@ count) (or (string= omit-re "") (let ((dired-marker-char dired-omit-marker-char)) - (message "Omitting...") + (when dired-omit-verbose (message "Omitting...")) (if (dired-mark-unmarked-files omit-re nil nil dired-omit-localp) (progn - (setq count (dired-do-kill-lines nil "Omitted %d line%s.")) + (setq count (dired-do-kill-lines + nil + (if dired-omit-verbose "Omitted %d line%s." ""))) (force-mode-line-update)) - (message "(Nothing to omit)")))) + (when dired-omit-verbose (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