[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 10f8aaf 19/23: Stop using obsolete variables. Fix #8
From: |
Artur Malabarba |
Subject: |
[elpa] master 10f8aaf 19/23: Stop using obsolete variables. Fix #8 |
Date: |
Wed, 30 Sep 2015 12:16:03 +0000 |
branch: master
commit 10f8aaf715e0bfd92386354dc668833e91229c9b
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
Stop using obsolete variables. Fix #8
---
rich-minority.el | 36 ++++++++++++++++++------------------
1 files changed, 18 insertions(+), 18 deletions(-)
diff --git a/rich-minority.el b/rich-minority.el
index 981bf6b..4475c95 100644
--- a/rich-minority.el
+++ b/rich-minority.el
@@ -104,7 +104,7 @@ Please include your Emacs and rich-minority versions."
Has three possible values:
- nil: All minor modes are shown in the mode-line (but see also
- `rm-included-modes').
+ `rm-whitelist').
- List of strings: Represents a list of minor mode names that
will be hidden from the minor-modes list.
@@ -115,7 +115,7 @@ Has three possible values:
minor-mode list.
If you'd like to use a list of regexps, simply use something like the
following:
- (setq rm-excluded-modes (mapconcat 'identity list-of-regexps \"\\\\|\"))
+ (setq rm-blacklist (mapconcat 'identity list-of-regexps \"\\\\|\"))
Don't forget to start each string with a blank space, as most
minor-mode lighters start with a space."
@@ -124,13 +124,13 @@ minor-mode lighters start with a space."
:group 'rich-minority
:package-version '(rich-minority . "0.1.1"))
(define-obsolete-variable-alias 'rm-excluded-modes 'rm-blacklist "0.1.1")
-(define-obsolete-variable-alias 'rm-hidden-modes 'rm-excluded-modes "0.1.1")
+(define-obsolete-variable-alias 'rm-hidden-modes 'rm-blacklist "0.1.1")
(defcustom rm-whitelist nil
"List of minor modes you want to include in the mode-line.
- nil: All minor modes are shown in the mode-line (but see also
- `rm-excluded-modes').
+ `rm-blacklist').
- List of strings: Represents a list of minor mode names that are
allowed on the minor-modes list. Any minor-mode whose lighter
@@ -142,7 +142,7 @@ minor-mode lighters start with a space."
the minor-mode list.
If you'd like to use a list of regexps, simply use something like the
following:
- (setq rm-included-modes (mapconcat 'identity list-of-regexps \"\\\\|\"))
+ (setq rm-whitelist (mapconcat 'identity list-of-regexps \"\\\\|\"))
Don't forget to start each string with a blank space, as most
minor-mode lighters start with a space."
@@ -213,26 +213,26 @@ These properties take priority over those defined in
(eval `(propertize ,mode ,@prop ,@rm-base-text-properties)))))
(defun rm--remove-hidden-modes (li)
- "Remove from LI elements that match `rm-excluded-modes' or don't match
`rm-included-modes'."
- (let ((pred (if (listp rm-excluded-modes) #'member #'rm--string-match))
+ "Remove from LI elements that match `rm-blacklist' or don't match
`rm-whitelist'."
+ (let ((pred (if (listp rm-blacklist) #'member #'rm--string-match))
(out li))
- (when rm-excluded-modes
+ (when rm-blacklist
(setq out
(remove nil
(mapcar
- (lambda (x) (unless (and (stringp x)
- (funcall pred x rm-excluded-modes))
- x))
- out))))
- (when rm-included-modes
- (setq pred (if (listp rm-included-modes) #'member #'rm--string-match))
+ (lambda (x) (unless (and (stringp x)
+ (funcall pred x rm-blacklist))
+ x))
+ out))))
+ (when rm-whitelist
+ (setq pred (if (listp rm-whitelist) #'member #'rm--string-match))
(setq out
(remove nil
(mapcar
- (lambda (x) (unless (and (stringp x)
- (null (funcall pred x
rm-included-modes)))
- x))
- out))))
+ (lambda (x) (unless (and (stringp x)
+ (null (funcall pred x rm-whitelist)))
+ x))
+ out))))
out))
(defun rm--string-match (string regexp)
- [elpa] master updated (a727eab -> 38cb49d), Artur Malabarba, 2015/10/08
- [elpa] master 983d5fa 02/23: File created and working, Artur Malabarba, 2015/10/08
- [elpa] master 10f8aaf 19/23: Stop using obsolete variables. Fix #8,
Artur Malabarba <=
- [elpa] master 7b07cce 18/23: Readme improvements, Artur Malabarba, 2015/10/08
- [elpa] master cc00f17 16/23: Fix keymap bug. Fix Bruce-Connor/smart-mode-line#105, Artur Malabarba, 2015/10/08
- [elpa] master 87c40ea 06/23: In-file doc, Artur Malabarba, 2015/10/08
- [elpa] master 2c8e195 05/23: Implemented the actual minor mode, Artur Malabarba, 2015/10/08
- [elpa] master 4614c55 14/23: Define rich-minority-version, Artur Malabarba, 2015/10/08
- [elpa] master 3b2ead3 12/23: Add comparison to Diminish., Artur Malabarba, 2015/10/08
- [elpa] master bde4f6f 20/23: Fix a bytecomp warning, Artur Malabarba, 2015/10/08
- [elpa] master d2c5a18 03/23: Better documentation and simplified logic, Artur Malabarba, 2015/10/08
- [elpa] master ac66dbd 10/23: Fix bug with rm-included-modes not working., Artur Malabarba, 2015/10/08
- [elpa] master e02f1f2 08/23: Add cl-lib dependency, Artur Malabarba, 2015/10/08