diff options
| author | Simon Marshall <simon@gnu.org> | 1997-03-20 12:37:06 +0000 |
|---|---|---|
| committer | Simon Marshall <simon@gnu.org> | 1997-03-20 12:37:06 +0000 |
| commit | e312c46347c8fed39e666c8db04f0aa10465fe0a (patch) | |
| tree | 93fdf7e6ec0c1fd890ccb5dd37f5d3cf3b14bef7 | |
| parent | 9c6f6eff1895e7336753bc9c4ca7f9f2ec9f9add (diff) | |
| download | emacs-e312c46347c8fed39e666c8db04f0aa10465fe0a.tar.gz | |
Doc dired-no-confirm and allow t value.
| -rw-r--r-- | lisp/dired.el | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 2d37d31540d..f415ac47e4d 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1810,12 +1810,10 @@ if there are no flagged files." ))) (defvar dired-no-confirm nil -;; "If non-nil, list of symbols for commands dired should not confirm. -;;It can be a sublist of -;; -;; '(byte-compile chgrp chmod chown compress copy delete hardlink load -;; move print shell symlink uncompress)" - ) + "A list of symbols for commands dired should not confirm. +Command symbols are `byte-compile', `chgrp', `chmod', `chown', `compress', +`copy', `delete', `hardlink', `load', `move', `print', `shell', `symlink' and +`uncompress'.") (defun dired-mark-pop-up (bufname op-symbol files function &rest args) ;;"Args BUFNAME OP-SYMBOL FILES FUNCTION &rest ARGS. @@ -1828,7 +1826,8 @@ if there are no flagged files." ;; OP-SYMBOL is a member of the list in `dired-no-confirm'. ;;FILES is the list of marked files." (or bufname (setq bufname " *Marked Files*")) - (if (or (memq op-symbol dired-no-confirm) + (if (or (eq dired-no-confirm t) + (memq op-symbol dired-no-confirm) (= (length files) 1)) (apply function args) (save-excursion |