diff options
| author | Simon Marshall <[email protected]> | 1997-03-20 12:39:57 +0000 |
|---|---|---|
| committer | Simon Marshall <[email protected]> | 1997-03-20 12:39:57 +0000 |
| commit | 7baff557b6794774fe094e17fe83e18c8642038e (patch) | |
| tree | 003e1d706d0a419f51a5059b925126784e52039d | |
| parent | 0347d0695461697204623dfb0e43d6f24a05fdee (diff) | |
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 6c07d430df..5d382ed827 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))))) |