branch: elpa/helm
commit 581e5029c973c1e1d2cfa6206a2c6fbf8ec602f2
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Avoid inheriting text props in spaces
---
helm-mode.el | 19 ++++++++++---------
1 file changed, 10 insertions(+), 9 deletions(-)
diff --git a/helm-mode.el b/helm-mode.el
index b43ff41bef..fd289f0843 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1144,15 +1144,16 @@ is used."
;; existing function.
(propertize comp 'face 'helm-completion-invalid))
;; Prefix.
- (helm-aand (propertize
- (cond ((and symbol-class group)
- (concat "g" symbol-class))
- ((and (not (string= symbol-class ""))
- symbol-class))
- (group "g")
- (t "i"))
- 'face 'completions-annotations)
- (propertize " " 'display (format "%-4s" it)))
+ (helm-aand (cond ((and symbol-class group)
+ (concat "g" symbol-class))
+ ((and (not (string= symbol-class ""))
+ symbol-class))
+ (group "g")
+ (t "i"))
+ (propertize it 'face 'completions-annotations)
+ (propertize
+ ;; (format "%-4s" it) makes spaces inheriting text props.
+ " " 'display (concat it (make-string (- 4 (length it)) ?
))))
;; Suffix.
(if doc
(helm-aand (propertize doc 'face 'completions-annotations)
