From: Eshel Yaron <me@eshelyaron.com>
Date: Thu, 24 Oct 2024 12:07:53 +0000 (+0200)
Subject: * lisp/dired-aux.el (dired-query): Simplify prompt
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d83a31956ed4c7cd14a717cb4722fa5dec46551f;p=emacs.git

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

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 1be8b9334bd..e75704e6626 100644
--- 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)))))