From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 3 Jul 2005 16:10:07 +0000 (+0000)
Subject: (dired-query): Display question with answer, when the user answers.
X-Git-Tag: emacs-pretest-22.0.90~8504
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=de5544e8b80aaf304e70b56c8f1432a02bb94610;p=emacs.git

(dired-query): Display question with answer, when the user answers.
---

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 963866b3554..b517dffe9f7 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -839,6 +839,9 @@ Otherwise, the rule is a compression rule, and compression is done with gzip.")
 	       (sit-for 1)
 	       (apply 'message qprompt qs-args)
 	       (setq char (set qs-var (read-char))))
+	     ;; Display the question with the answer.
+	     (message (concat (apply 'format qprompt qs-args)
+			      (char-to-string char)))
 	     (memq (cdr elt) '(t y yes)))))))
 
 ;;;###autoload