* lisp/dired-aux.el (dired-query): Simplify prompt

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 1be8b9334bdc96333e1d6c1f86bcd31ab4b001db..e75704e66264705e61f8ec6b1d6d4e13ce812118 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1897,12 +1897,7 @@ return t; if SYM is q or ESC, return nil."
          ((memq char '(?q ?\e))
           nil)     ; skip, and don't ask again
          (t        ; no previous answer - ask now
-          (setq prompt
-                (concat (apply #'format-message prompt args)
-                        (if help-form
-                            (format " [Type yn!q or %s] "
-                                    (key-description (vector help-char)))
-                          " [Type y, n, q or !] ")))
+          (setq prompt (apply #'format-message prompt args))
           (set sym (setq char (read-char-choice prompt char-choices)))
           (if (memq char '(?y ?\s ?!)) t)))))