emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/helm b36b285be5 3/4: Only 1 space seems enough in *M-x and


From: ELPA Syncer
Subject: [nongnu] elpa/helm b36b285be5 3/4: Only 1 space seems enough in *M-x and *apropos transformers
Date: Sat, 18 Jun 2022 01:58:29 -0400 (EDT)

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

    Only 1 space seems enough in *M-x and *apropos transformers
---
 helm-command.el | 6 +++---
 helm-elisp.el   | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/helm-command.el b/helm-command.el
index ef0c0643b6..4e86124f88 100644
--- a/helm-command.el
+++ b/helm-command.el
@@ -158,7 +158,7 @@ algorithm."
              (cons (cond ((and (string-match "^M-x" key) local-key)
                           (format "%s%s%s %s"
                                   disp
-                                  (if doc (make-string (+ 4 (- max-len (length 
cand))) ? ) "")
+                                  (if doc (make-string (+ 1 (- max-len (length 
cand))) ? ) "")
                                   (if doc (propertize doc 'face 
'helm-M-x-short-doc) "")
                                   (propertize
                                    " " 'display
@@ -166,11 +166,11 @@ algorithm."
                          ((string-match "^M-x" key)
                           (format "%s%s%s"
                                   disp
-                                  (if doc (make-string (+ 4 (- max-len (length 
cand))) ? ) "")
+                                  (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 (+ 4 (- max-len 
(length cand))) ? ) "")
+                                    (if doc (make-string (+ 1 (- max-len 
(length cand))) ? ) "")
                                     (if doc (propertize doc 'face 
'helm-M-x-short-doc) "")
                                     (propertize
                                      " " 'display
diff --git a/helm-elisp.el b/helm-elisp.el
index 86af979c7b..b92028d669 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -530,7 +530,7 @@ is only used to test DEFAULT."
            collect (cons (format "%s%s%s"
                                  cand
                                  (if doc
-                                     (make-string (+ 4 (if (zerop max-len)
+                                     (make-string (+ 1 (if (zerop max-len)
                                                            max-len
                                                          (- max-len 
(string-width cand))))
                                                   ? )



reply via email to

[Prev in Thread] Current Thread [Next in Thread]