diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2018-03-10 18:24:52 +0100 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2018-03-10 18:24:52 +0100 |
commit | d278d488e095750f976dc7618f9135f803b1166f (patch) | |
tree | e8c4a7820ae1f2d8a8acebd2184fd54ca73464f8 /helm-imenu.el | |
parent | d4e8c6e75fb1cc51658050a20895b83cc5a97967 (diff) |
Simplify previous commit
* helm-imenu.el (helm-imenu-transformer): Use default face when none matched.
Diffstat (limited to 'helm-imenu.el')
-rw-r--r-- | helm-imenu.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/helm-imenu.el b/helm-imenu.el index 92e1846b..47f6f8bd 100644 --- a/helm-imenu.el +++ b/helm-imenu.el @@ -282,12 +282,11 @@ Each car is a regexp match pattern of the imenu type string." (marker-buffer v)))) for disp1 = (mapconcat (lambda (x) - (let ((face (cl-loop for (p . f) in helm-imenu-type-faces - when (string-match p x) - return f))) - (if face - (propertize x 'face face) - x))) + (propertize + x 'face + (cl-loop for (p . f) in helm-imenu-type-faces + when (string-match p x) return f + finally return 'default))) types helm-imenu-delimiter) for disp = (propertize disp1 'help-echo bufname) collect |