From d83a31956ed4c7cd14a717cb4722fa5dec46551f Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Thu, 24 Oct 2024 14:07:53 +0200 Subject: [PATCH] * lisp/dired-aux.el (dired-query): Simplify prompt --- lisp/dired-aux.el | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) 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))))) -- 2.39.5