branch: externals/diminish
commit d5c61a14e1a5590a65f83c099a5bd42fcadff24d
Author: DK <beerand...@gmail.com>
Commit: Martin Yrjölä <martin.yrj...@gmail.com>
allow to diminish to :eval expressions
---
diminish.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/diminish.el b/diminish.el
index 2954114a9d..6aa45e4c89 100644
--- a/diminish.el
+++ b/diminish.el
@@ -178,7 +178,8 @@ to TO-WHAT if it's > 1 char long & doesn't already begin
with a space."
(let ((minor (assq mode minor-mode-alist)))
(when minor
(progn (callf or to-what "")
- (when (> (length to-what) 1)
+ (when (and (stringp to-what)
+ (> (length to-what) 1))
(or (= (string-to-char to-what) ?\ )
(callf2 concat " " to-what)))
(or (assq mode diminished-mode-alist)
