# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 733990985 0
# Node ID b1834ed2c36654fd5aa3c82fffeb6c6deead3dc2
# Parent  3d2f74e16e54dc676d32b435563544c3a093cdec
(dired-unmark-all-files): Read the arg as just a char.

diff -r 3d2f74e16e54 -r b1834ed2c366 lisp/dired.el
--- 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)))))