diff options
author | Simon Marshall <simon@gnu.org> | 1997-03-20 12:39:57 +0000 |
---|---|---|
committer | Simon Marshall <simon@gnu.org> | 1997-03-20 12:39:57 +0000 |
commit | de8badabd96316a871995a595aa2c497a1f79901 (patch) | |
tree | 515bea82a4c8af91732fb7d8ff8eae90cf014837 | |
parent | e312c46347c8fed39e666c8db04f0aa10465fe0a (diff) | |
download | emacs-de8badabd96316a871995a595aa2c497a1f79901.tar.gz |
Allow a dired-no-confirm of t
-rw-r--r-- | lisp/dired-aux.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 6c07d430df4..5d382ed8272 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -592,7 +592,8 @@ Otherwise, the rule is a compression rule, and compression is done with gzip.") ;; Confirmation consists in a y-or-n question with a file list ;; pop-up unless OP-SYMBOL is a member of `dired-no-confirm'. ;; The files used are determined by ARG (as in dired-get-marked-files). - (or (memq op-symbol dired-no-confirm) + (or (eq dired-no-confirm t) + (memq op-symbol dired-no-confirm) (let ((files (dired-get-marked-files t arg)) (string (if (eq op-symbol 'compress) "Compress or uncompress" (capitalize (symbol-name op-symbol))))) |