[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/diminish 0970f83e97 04/22: Don't error out when a light
From: |
ELPA Syncer |
Subject: |
[elpa] externals/diminish 0970f83e97 04/22: Don't error out when a lighter is not defined |
Date: |
Fri, 28 Jan 2022 02:57:48 -0500 (EST) |
branch: externals/diminish
commit 0970f83e97f867a4be2c2060ad90734f594f67b4
Author: Martin Yrjölä <martin.yrjola@gmail.com>
Commit: Martin Yrjölä <martin.yrjola@gmail.com>
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
- [elpa] branch externals/diminish created (now fd486ef76e), ELPA Syncer, 2022/01/28
- [elpa] externals/diminish 0352a1e9db 02/22: Import diminish.el from original source, ELPA Syncer, 2022/01/28
- [elpa] externals/diminish 18d9730f48 10/22: Update GPL preamble, ELPA Syncer, 2022/01/28
- [elpa] externals/diminish 84157483fb 03/22: Update README.md, ELPA Syncer, 2022/01/28
- [elpa] externals/diminish d8ec15be09 05/22: Merge pull request #1 from myrjola/fix-no-lighter, ELPA Syncer, 2022/01/28
- [elpa] externals/diminish 9e648b64d9 01/22: Initial commit, ELPA Syncer, 2022/01/28
- [elpa] externals/diminish ad50994e5a 19/22: Add .gitignore, ELPA Syncer, 2022/01/28
- [elpa] externals/diminish 8bed521dbd 15/22: Replace deprecated 'cl package by 'cl-lib, ELPA Syncer, 2022/01/28
- [elpa] externals/diminish 0970f83e97 04/22: Don't error out when a lighter is not defined,
ELPA Syncer <=
- [elpa] externals/diminish 96b47cf903 17/22: Replace cl with cl-lib (Fix #8), ELPA Syncer, 2022/01/28
- [elpa] externals/diminish 565a983a39 14/22: [ci skip] Fix use-package link in README, ELPA Syncer, 2022/01/28
- [elpa] externals/diminish fd486ef76e 22/22: Update license to GPLv3, ELPA Syncer, 2022/01/28
- [elpa] externals/diminish 1645182ff3 06/22: Add Martin Yrjölä as maintainer, ELPA Syncer, 2022/01/28
- [elpa] externals/diminish 826e19186b 12/22: Add MELPA-stable badge, ELPA Syncer, 2022/01/28
- [elpa] externals/diminish e534fa043a 16/22: Revert "Replace deprecated 'cl package by 'cl-lib", ELPA Syncer, 2022/01/28
- [elpa] externals/diminish 01c225bfdd 11/22: Add MELPA badge, ELPA Syncer, 2022/01/28
- [elpa] externals/diminish a76b409b05 07/22: Fix flycheck warning, ELPA Syncer, 2022/01/28
- [elpa] externals/diminish b3bab66cf0 08/22: Change URL to the official repository, ELPA Syncer, 2022/01/28
- [elpa] externals/diminish 66b3902401 20/22: Bump version to 0.46, ELPA Syncer, 2022/01/28