diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-04-05 06:23:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-04-05 06:23:05 +0000 |
| commit | 3585916ff7abd66df24d3c5da044b29df42a4ad0 (patch) | |
| tree | db19054bc274ff08ef47d33d68e834ffe0df35c1 | |
| parent | 0cbe967f856c2057ebfbf4a2c14fe19ce3f71746 (diff) | |
| download | emacs-3585916ff7abd66df24d3c5da044b29df42a4ad0.tar.gz | |
(dired-unmark-all-files): Read the arg as just a char.
| -rw-r--r-- | lisp/dired.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 859f8e108ba..818261f1894 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1710,9 +1710,12 @@ OLD and NEW are both characters used to mark files." (defun dired-unmark-all-files (flag &optional arg) "Remove a specific mark or any mark from every file. -With an arg, queries for each marked file. +With prefix arg, query for each marked file. Type \\[help-command] at that time for help." - (interactive "sRemove mark: (default: all marks) \nP") + (interactive + (let* ((cursor-in-echo-area t)) + (list (progn (message "Remove marks (RET means all): ") (read-char)) + current-prefix-arg))) (let ((count 0) (re (if (zerop (length flag)) dired-re-mark (concat "^" (regexp-quote flag))))) |