Indicate completion strictness in minibuffer prompt

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 8558a1d63ca18aa388e08a335e8bbff024046ae9..08a5ef7bcbcbd4adf0ae1b2ce3e9e76423aa73fa 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -4367,8 +4367,22 @@ possible completions."
   :group 'minibuffer
   :risky t)
 
-(defcustom minibuffer-completion-prompt-indicator ">"
-  "String to show in minibuffer prompt when completion is available."
+(defcustom minibuffer-strict-prompt-indicator "=>"
+  "String to show in minibuffer prompt to indicate strict completion."
+  :type 'string
+  :version "31.1"
+  :group 'minibuffer
+  :risky t)
+
+(defcustom minibuffer-lax-with-confirmation-prompt-indicator ">"
+  "String to show in minibuffer prompt for lax completion with confirmation."
+  :type 'string
+  :version "31.1"
+  :group 'minibuffer
+  :risky t)
+
+(defcustom minibuffer-lax-prompt-indicator ">"
+  "String to show in minibuffer prompt to indicate lax completion."
   :type 'string
   :version "31.1"
   :group 'minibuffer
@@ -4386,9 +4400,17 @@ possible completions."
 
 (defvar minibuffer-completion-prompt-indicator-format
   '(minibuffer-completion-table
-    (:propertize minibuffer-completion-prompt-indicator
-                 help-echo "Completion available"
-                 mouse-face minibuffer-completion-prompt-indicator-highlight)))
+    (minibuffer--require-match
+     (minibuffer-completion-confirm
+      (:propertize minibuffer-lax-with-confirmation-prompt-indicator
+                   help-echo "Lax completion with confirmation"
+                   mouse-face minibuffer-completion-prompt-indicator-highlight)
+      (:propertize minibuffer-strict-prompt-indicator
+                   help-echo "Strict completion"
+                   mouse-face minibuffer-completion-prompt-indicator-highlight))
+     (:propertize minibuffer-lax-prompt-indicator
+                  help-echo "Lax completion"
+                  mouse-face minibuffer-completion-prompt-indicator-highlight))))
 
 (dolist (sym '(minibuffer-action-prompt-indicator-format
                minibuffer-extra-prompt-indicators-format