[nongnu] elpa/helm a37d50c597 1/6: Highlight only commands in M-x

[ELPA Syncer]

branch: elpa/helm
commit a37d50c5973ea13384f2da74f3bb61fae74f969d
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Highlight only commands in M-x
---
 helm-command.el | 39 +++++++++++++++++++++------------------
 1 file changed, 21 insertions(+), 18 deletions(-)

diff --git a/helm-command.el b/helm-command.el
index c5bb1bf34e..622c3c693a 100644
--- a/helm-command.el
+++ b/helm-command.el
@@ -152,25 +152,28 @@ algorithm."
              unless (and (null ignore-props) (or (get sym 'helm-only) (get sym 
'no-helm-mx)))
              collect
              (cons (cond ((and (string-match "^M-x" key) local-key)
-                          (format "%s%s%s %s"
-                                  disp
-                                  (if doc (make-string (+ 1 (- max-len (length 
cand))) ? ) "")
-                                  (if doc (propertize doc 'face 
'helm-M-x-short-doc) "")
-                                  (propertize
-                                   " " 'display
-                                   (propertize local-key 'face 
'helm-M-x-key))))
+                          (propertize (format "%s%s%s %s"
+                                              disp
+                                              (if doc (make-string (+ 1 (- 
max-len (length cand))) ? ) "")
+                                              (if doc (propertize doc 'face 
'helm-M-x-short-doc) "")
+                                              (propertize
+                                               " " 'display
+                                               (propertize local-key 'face 
'helm-M-x-key)))
+                                      'match-part disp))
                          ((string-match "^M-x" key)
-                          (format "%s%s%s"
-                                  disp
-                                  (if doc (make-string (+ 1 (- max-len (length 
cand))) ? ) "")
-                                  (if doc (propertize doc 'face 
'helm-M-x-short-doc) "")))
-                         (t (format "%s%s%s %s"
-                                    disp
-                                    (if doc (make-string (+ 1 (- max-len 
(length cand))) ? ) "")
-                                    (if doc (propertize doc 'face 
'helm-M-x-short-doc) "")
-                                    (propertize
-                                     " " 'display
-                                     (propertize key 'face 'helm-M-x-key)))))
+                          (propertize (format "%s%s%s"
+                                              disp
+                                              (if doc (make-string (+ 1 (- 
max-len (length cand))) ? ) "")
+                                              (if doc (propertize doc 'face 
'helm-M-x-short-doc) ""))
+                                      'match-part disp))
+                         (t (propertize (format "%s%s%s %s"
+                                                disp
+                                                (if doc (make-string (+ 1 (- 
max-len (length cand))) ? ) "")
+                                                (if doc (propertize doc 'face 
'helm-M-x-short-doc) "")
+                                                (propertize
+                                                 " " 'display
+                                                 (propertize key 'face 
'helm-M-x-key)))
+                                        'match-part disp)))
                    cand)
              into ls
              finally return