diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-07-04 21:09:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-07-04 21:09:49 +0000 |
| commit | 8e4589447e9c48f20012bf072e5904b788d6a02d (patch) | |
| tree | c7cd89b3ac4e5c006cd40a18687ab2eea1afeed1 /lisp/dired-x.el | |
| parent | c22139944529fcc0f6010c9dc463370a281fdf60 (diff) | |
| download | emacs-8e4589447e9c48f20012bf072e5904b788d6a02d.tar.gz | |
(dired-omit-expunge): Message if skipping omitting
because directory is too large; also unset dired-omit-files-p.
(dired-omit-size-limit): Increase default from 20000 to 30000.
Diffstat (limited to 'lisp/dired-x.el')
| -rw-r--r-- | lisp/dired-x.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/dired-x.el b/lisp/dired-x.el index b9c2d13b2ae..03c3e3f2f3c 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -208,7 +208,7 @@ toggle between those two." :type 'boolean :group 'dired-x) -(defcustom dired-omit-size-limit 20000 +(defcustom dired-omit-size-limit 30000 "*Maximum size for the \"omitting\" feature. If nil, there is no maximum size." :type '(choice (const :tag "no maximum" nil) integer) @@ -580,7 +580,12 @@ This functions works by temporarily binding `dired-marker-char' to (if (and dired-omit-files-p (or (interactive-p) (not dired-omit-size-limit) - (< (buffer-size) dired-omit-size-limit))) + (< (buffer-size) dired-omit-size-limit) + (progn + (message "Not omitting: directory larger than %d characters." + dired-omit-size-limit) + (setq dired-omit-files-p nil) + nil))) (let ((omit-re (or regexp (dired-omit-regexp))) (old-modified-p (buffer-modified-p)) count) |