diff options
| -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.") | |||
| 592 | ;; Confirmation consists in a y-or-n question with a file list | 592 | ;; Confirmation consists in a y-or-n question with a file list |
| 593 | ;; pop-up unless OP-SYMBOL is a member of `dired-no-confirm'. | 593 | ;; pop-up unless OP-SYMBOL is a member of `dired-no-confirm'. |
| 594 | ;; The files used are determined by ARG (as in dired-get-marked-files). | 594 | ;; The files used are determined by ARG (as in dired-get-marked-files). |
| 595 | (or (memq op-symbol dired-no-confirm) | 595 | (or (eq dired-no-confirm t) |
| 596 | (memq op-symbol dired-no-confirm) | ||
| 596 | (let ((files (dired-get-marked-files t arg)) | 597 | (let ((files (dired-get-marked-files t arg)) |
| 597 | (string (if (eq op-symbol 'compress) "Compress or uncompress" | 598 | (string (if (eq op-symbol 'compress) "Compress or uncompress" |
| 598 | (capitalize (symbol-name op-symbol))))) | 599 | (capitalize (symbol-name op-symbol))))) |