[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))))
? )