summaryrefslogtreecommitdiff
path: root/helm.el
diff options
context:
space:
mode:
authorThierry Volpiatto <thierry.volpiatto@gmail.com>2016-07-02 08:19:40 +0200
committerThierry Volpiatto <thierry.volpiatto@gmail.com>2016-07-02 08:19:40 +0200
commitbf8ce97a60a5126d66d0a43721c13fb72fddd8e7 (patch)
treea6b01b6e5ed0f1307d71e131e3009f67a7b8473e /helm.el
parent405b1080b481f7bb155848d1ebb66f6413719b9b (diff)
Fix fontification of marked cands in mode-line.
* helm.el (helm-display-mode-line): Do it.
Diffstat (limited to 'helm.el')
-rw-r--r--helm.el9
1 files changed, 4 insertions, 5 deletions
diff --git a/helm.el b/helm.el
index 42364f75..413d7301 100644
--- a/helm.el
+++ b/helm.el
@@ -3743,12 +3743,11 @@ DIRECTION is either 'next or 'previous."
(" " mode-line-buffer-identification " "
(:eval (format "L%-3d" (helm-candidate-number-at-point)))
,follow
+ " "
(:eval ,(and marked
- (concat
- " "
- (propertize
- (format "M%d" (length marked))
- 'face 'helm-visible-mark))))
+ (propertize
+ (format "M%d" (length marked))
+ 'face 'helm-visible-mark)))
(:eval (when ,helm--mode-line-display-prefarg
(let ((arg (prefix-numeric-value
(or prefix-arg current-prefix-arg))))