; 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 d4b808b15846db7c96ff7d2e57e07b0fe2a61228..5fefb19968ab2bf8b2902ec357513199f4866c0b 100644 (file)
--- 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