Mercurial > emacs
changeset 2458:b1834ed2c366
(dired-unmark-all-files): Read the arg as just a char.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 05 Apr 1993 06:23:05 +0000 |
| parents | 3d2f74e16e54 |
| children | fd35248ff0d1 |
| files | lisp/dired.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired.el Sat Apr 03 23:28:03 1993 +0000 +++ b/lisp/dired.el Mon Apr 05 06:23:05 1993 +0000 @@ -1710,9 +1710,12 @@ (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)))))