Commit 8e458944 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(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.
parent c2213994
...@@ -208,7 +208,7 @@ toggle between those two." ...@@ -208,7 +208,7 @@ toggle between those two."
:type 'boolean :type 'boolean
:group 'dired-x) :group 'dired-x)
(defcustom dired-omit-size-limit 20000 (defcustom dired-omit-size-limit 30000
"*Maximum size for the \"omitting\" feature. "*Maximum size for the \"omitting\" feature.
If nil, there is no maximum size." If nil, there is no maximum size."
:type '(choice (const :tag "no maximum" nil) integer) :type '(choice (const :tag "no maximum" nil) integer)
...@@ -580,7 +580,12 @@ This functions works by temporarily binding `dired-marker-char' to ...@@ -580,7 +580,12 @@ This functions works by temporarily binding `dired-marker-char' to
(if (and dired-omit-files-p (if (and dired-omit-files-p
(or (interactive-p) (or (interactive-p)
(not dired-omit-size-limit) (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))) (let ((omit-re (or regexp (dired-omit-regexp)))
(old-modified-p (buffer-modified-p)) (old-modified-p (buffer-modified-p))
count) count)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment