[elpa] externals/diminish d8ec15be09 05/22: Merge pull request #1 from myrjola/fix-no-lighter

[ELPA Syncer]

branch: externals/diminish
commit d8ec15be09afe64bc04fbadf177e6f2e3fe7dc9b
Merge: 84157483fb 0970f83e97
Author: Martin Yrjölä <martin.yrjola@gmail.com>
Commit: Martin Yrjölä <martin.yrjola@gmail.com>

    Merge pull request #1 from myrjola/fix-no-lighter
    
    Don't error out when a lighter is not defined
---
 diminish.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/diminish.el b/diminish.el
index 6461e12649..b4295297bb 100644
--- a/diminish.el
+++ b/diminish.el
@@ -177,14 +177,14 @@ to TO-WHAT if it's > 1 char long & doesn't already begin 
with a space."
                       "To what mode-line display: "
                       nil nil nil 'diminish-history-names)))
   (let ((minor (assq mode minor-mode-alist)))
-    (or minor (error "%S is not currently registered as a minor mode" mode))
-    (callf or to-what "")
-    (when (> (length to-what) 1)
-      (or (= (string-to-char to-what) ?\ )
-          (callf2 concat " " to-what)))
-    (or (assq mode diminished-mode-alist)
-        (push (copy-sequence minor) diminished-mode-alist))
-    (setcdr minor (list to-what))))
+    (when minor
+        (progn (callf or to-what "")
+               (when (> (length to-what) 1)
+                 (or (= (string-to-char to-what) ?\ )
+                     (callf2 concat " " to-what)))
+               (or (assq mode diminished-mode-alist)
+                   (push (copy-sequence minor) diminished-mode-alist))
+               (setcdr minor (list to-what))))))
 
 ;; But an image comes to me, vivid in its unreality, of a loon alone on his
 ;; forest lake, shrieking his soul out into a canopy of stars.  Alone this