Optionally dim hyphens in 'M-x' completion candidates

* lisp/simple.el (dim-hyphen): New face.
(extended-command-dim-hyphens): New user option.
(read-extended-command--affixation): Optionally dim hyphens.

diff --git a/etc/NEWS b/etc/NEWS
index c55719416d37a92f51d89bfc3e2d08fc74d21f43..cdfd5b0de559fad4c72de2a0bebd0d7fc41a7b25 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1143,6 +1143,10 @@ This minor mode shows you symbol completion suggestions as you type,
 using an inline preview.  New user options in the 'completion-preview'
 customization group control exactly when Emacs displays this preview.
 
++++
+*** New user option 'extended-command-dim-hyphens'.
+Set this to non-nil to have Emacs dim hyphens in 'M-x' completions.
+
 ---
 ** The highly accessible Modus themes collection has eight items.
 The 'modus-operandi' and 'modus-vivendi' are the main themes that have

diff --git a/lisp/simple.el b/lisp/simple.el
index e0b27658df648178670eadd54636b15f3f08fec4..1d2ff92440c54fb220315d39b7970059d0f43359 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -256,6 +256,18 @@ all other buffers."
   :group 'next-error
   :version "28.1")
 
+(defcustom extended-command-dim-hyphens nil
+  "Whether to dim hyphens in \\[execute-extended-command] completions."
+  :type 'boolean
+  :group 'minibuffer
+  :version "30.1")
+
+(defface dim-hyphen
+  '((t :inherit shadow :weight light))
+  "Face for dimming hyphens in \\[execute-extended-command] completions."
+  :group 'minibuffer
+  :version "30.1")
+
 (defun next-error-buffer-on-selected-frame (&optional _avoid-current
                                                       extra-test-inclusive
                                                       extra-test-exclusive)
@@ -2486,6 +2498,11 @@ or (if one of MODES is a minor mode), if it is switched on in BUFFER."
                             (t ""))))
          (put-text-property 0 (length suffix)
                             'face 'completions-annotations suffix)
+         (when extended-command-dim-hyphens
+           (named-let dim ((hy (string-search "-" command-name)))
+             (when hy
+               (add-face-text-property hy (1+ hy) 'dim-hyphen nil command-name)
+               (dim (string-search "-" command-name (1+ hy))))))
          (list command-name "" suffix)))
      command-names)))