[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master da63492 08/14: Rename `delighted-modes' to `delight-deligh
From: |
Phil |
Subject: |
[elpa] master da63492 08/14: Rename `delighted-modes' to `delight-delighted-modes' |
Date: |
Sat, 11 Jul 2020 00:57:55 -0400 (EDT) |
branch: master
commit da63492842392296c81ceff20f4d94c75b86b1fa
Author: Phil Sainty <psainty@orcon.net.nz>
Commit: Phil Sainty <psainty@orcon.net.nz>
Rename `delighted-modes' to `delight-delighted-modes'
Solely for the purpose of cleaner name-spacing.
---
delight.el | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/delight.el b/delight.el
index 274de2d..a4a4b5b 100644
--- a/delight.el
+++ b/delight.el
@@ -94,6 +94,7 @@
;;; Change Log:
;;
;; 1.7 (2020-07-11)
+;; - Rename `delighted-modes' to `delight-delighted-modes'.
;; - Rename `delight--inhibit' to `delight-mode-name-inhibit', and
;; document its uses.
;; 1.6 (2019-07-23)
@@ -119,7 +120,10 @@
(eval-when-compile (require 'cl-lib))
(require 'nadvice)
-(defvar delighted-modes ()
+(define-obsolete-variable-alias 'delighted-modes
+ 'delight-delighted-modes "delight-1.7")
+
+(defvar delight-delighted-modes nil
"List of specs for modifying the display of mode names in the mode line.
See `delight'.")
@@ -153,8 +157,8 @@ to prevent the mode being treated as a minor mode."
(let ((glum (if (consp spec) spec (list (list spec value file)))))
(while glum
(cl-destructuring-bind (mode &optional value file) (pop glum)
- (assq-delete-all mode delighted-modes)
- (add-to-list 'delighted-modes (list mode value file))
+ (assq-delete-all mode delight-delighted-modes)
+ (add-to-list 'delight-delighted-modes (list mode value file))
(unless (eq file :major)
(eval-after-load (if (eq file t) 'emacs (or file mode))
`(let ((minor-delight (assq ',mode minor-mode-alist)))
@@ -207,7 +211,7 @@ when displayed in the mode-line.
When `mode-name' is displayed in other contexts (such as in the
`describe-mode' help buffer), its original value will be used,
unless `delight-mode-name-inhibit' is bound and nil."
- (let ((major-delight (assq major-mode delighted-modes)))
+ (let ((major-delight (assq major-mode delight-delighted-modes)))
(when major-delight
(setq mode-name `(delight-mode-name-inhibit
,mode-name ;; glum
- [elpa] master updated (b8c9fbb -> 2a774d1), Phil, 2020/07/11
- [elpa] master 05ef4d7 03/14: Fix quote character in `delight' docstring in Emacs 25+, Phil, 2020/07/11
- [elpa] master d2cc2fc 02/14: Use GNU ELPA version number formatting, Phil, 2020/07/11
- [elpa] master e3bd4c2 01/14: * delight.el: Fix copyright, Phil, 2020/07/11
- [elpa] master 8ec8a5b 05/14: Use cl-lib, nadvice, and lexical-binding, Phil, 2020/07/11
- [elpa] master 6d4a5aa 06/14: Use double-spaced sentence formatting, Phil, 2020/07/11
- [elpa] master 17cce66 04/14: Re-format the Change Log, Phil, 2020/07/11
- [elpa] master a763ec1 07/14: Rename `delight--inhibit' to `delight-mode-name-inhibit', Phil, 2020/07/11
- [elpa] master da63492 08/14: Rename `delighted-modes' to `delight-delighted-modes',
Phil <=
- [elpa] master 088aae0 09/14: Support live updates from earlier versions, Phil, 2020/07/11
- [elpa] master 26dab6b 10/14: Support `unload-feature', Phil, 2020/07/11
- [elpa] master 989eed2 11/14: Add to after-change-major-mode-hook at load time, Phil, 2020/07/11
- [elpa] master 2a774d1 14/14: Merge commit '5a0cd5ccb650d7bba1c1ea02cf67b71d7cfa6e9a' from delight, Phil, 2020/07/11
- [elpa] master 5a0cd5c 12/14: Documentation, Phil, 2020/07/11
- [elpa] master a1b7e94 13/14: * externals-list: Use https for "delight" subtree URL, Phil, 2020/07/11