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

1 files changed, 3 insertions, 0 deletions

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