# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1120407007 0
# Node ID dd8f5792476ec101b7b2b8bd376bc82f5d6583f6
# Parent  bbf23e50d79799d29003c9632c3ffb093de02c1d
(dired-query): Display question with answer, when the user answers.

diff -r bbf23e50d797 -r dd8f5792476e lisp/dired-aux.el
--- a/lisp/dired-aux.el	Sun Jul 03 16:09:07 2005 +0000
+++ b/lisp/dired-aux.el	Sun Jul 03 16:10:07 2005 +0000
@@ -839,6 +839,9 @@
 	       (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