branch: elpa/helm
commit 7c1b872d267d4b78b9e1b48974b4f98183587354
Merge: 155227133c 2a472c336d
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: GitHub <nore...@github.com>
Merge pull request #2500 from Horrih/fix-doc-whitespace
Remove whitespace in helm-M-x
---
helm-command.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/helm-command.el b/helm-command.el
index 9b08cda691..4ba966b4d3 100644
--- a/helm-command.el
+++ b/helm-command.el
@@ -155,21 +155,21 @@ 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"
+ (format "%s%s%s %s"
disp
- (if doc (make-string (+ 2 (- max-len (+
(length cand)))) ? ) "")
+ (if doc (make-string (+ 4 (- max-len (+
(length cand)))) ? ) "")
(if doc (propertize doc 'face
'helm-M-x-short-doc) "")
(propertize
" " 'display
(propertize local-key 'face
'helm-M-x-key))))
((string-match "^M-x" key)
- (format "%s %s %s"
+ (format "%s%s%s"
disp
- (if doc (make-string (+ 2 (- max-len (+
(length cand)))) ? ) "")
+ (if doc (make-string (+ 4 (- max-len (+
(length cand)))) ? ) "")
(if doc (propertize doc 'face
'helm-M-x-short-doc) "")))
- (t (format "%s %s %s %s"
+ (t (format "%s%s%s %s"
disp
- (if doc (make-string (+ 2 (- max-len (+
(length cand)))) ? ) "")
+ (if doc (make-string (+ 4 (- max-len (+
(length cand)))) ? ) "")
(if doc (propertize doc 'face
'helm-M-x-short-doc) "")
(propertize
" " 'display
