From: Eshel Yaron <me@eshelyaron.com>
Date: Sat, 17 Feb 2024 11:06:45 +0000 (+0100)
Subject: ; Improve message when REQUIRE-MATCH function denies exiting
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=118a0e96d0f5b4c269eba66d8fbddaf1915b27cf;p=emacs.git

; Improve message when REQUIRE-MATCH function denies exiting

* lisp/minibuffer.el (minibuffer-force-complete): Disregard
'completion-fail-discreetly', since we are not failing completion.
Improve message.
---

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index d4b808b1584..5fefb19968a 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -2135,9 +2135,7 @@ appear to be a match."
     (if (funcall minibuffer-completion-confirm
                  (buffer-substring beg end))
         (funcall exit-function)
-      (unless completion-fail-discreetly
-	(ding)
-	(completion--message "No match"))))
+      (completion--message "Can't exit minibuffer with current input")))
    ;; See if we have a completion from the table.
    ((test-completion (buffer-substring beg end)
                      minibuffer-completion-table