branch: elpa/helm
commit 2a472c336dad2693e2c628e0de7be1e2437204fb
Author: Charles Gonnaud <u...@hotmail.fr>
Commit: Charles Gonnaud <u...@hotmail.fr>
Remove whitespace in helm-M-x
If show-trailing-whitespace is set to true globally, it leads to an ugly
completion buffer.
---
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
