mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

Allow a dired-no-confirm of t

Browse Source
This commit is contained in:
Simon Marshall 1997-03-20 12:39:57 +00:00
parent 0347d06954
commit 7baff557b6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/dired-aux.el
View File

@ -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)))))