[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 0882ecb 05/11: Respect `inhibit-mode-name-delight' when al
From: |
Phil |
Subject: |
[elpa] master 0882ecb 05/11: Respect `inhibit-mode-name-delight' when already set |
Date: |
Wed, 13 Jul 2016 13:25:59 +0000 (UTC) |
branch: master
commit 0882ecb6d2102e5c5ced22cf98ef5f57565cbd37
Author: Phil Sainty <address@hidden>
Commit: Phil Sainty <address@hidden>
Respect `inhibit-mode-name-delight' when already set
---
delight.el | 18 ++++++++++++++++--
1 file changed, 16 insertions(+), 2 deletions(-)
diff --git a/delight.el b/delight.el
index 8e88e2e..8e58890 100644
--- a/delight.el
+++ b/delight.el
@@ -2,7 +2,16 @@
;;
;; Author: Phil S.
;; URL: http://www.emacswiki.org/emacs/DelightedModes
-;; Version: 1.03
+;; Keywords: convenience
+;; Created: 25 Jun 2013
+;; Version: 1.04
+
+;; This file is not part of GNU Emacs.
+
+;; This file is free software: you can redistribute it and/or modify it under
+;; the terms of the GNU General Public License as published by the Free
Software
+;; Foundation, either version 3 of the License, or (at your option) any later
+;; version. See <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
@@ -52,6 +61,7 @@
;;; Changelog:
;;
+;; 1.04 (2016-02-28) Respect `inhibit-mode-name-delight' when already set.
;; 1.03 (2014-05-30) Added support for `mode-line-mode-menu'.
;; 1.02 (2014-05-04) Bug fix for missing 'cl requirement for
;; destructuring-bind macro.
@@ -156,10 +166,14 @@ When `mode-name' is displayed in other contexts (such as
in the
,mode-name ;; glum
,(cadr major-delight)))))) ;; delighted
+(defvar inhibit-mode-name-delight)
+
(defadvice format-mode-line (around delighted-modes-are-glum activate)
"Delighted modes should exhibit their original `mode-name' when
`format-mode-line' is called. See `delight-major-mode'."
- (let ((inhibit-mode-name-delight t))
+ (let ((inhibit-mode-name-delight (if (boundp 'inhibit-mode-name-delight)
+ inhibit-mode-name-delight
+ t)))
ad-do-it))
(provide 'delight)
- [elpa] master updated (a1cdea0 -> 1dca70f), Phil, 2016/07/13
- [elpa] master 1dca70f 11/11: externals-list: Add delight, Phil, 2016/07/13
- [elpa] master 35e5d31 03/11: Bug fix for missing 'cl requirement for destructuring-bind macro, Phil, 2016/07/13
- [elpa] master e0fe27b 01/11: Original release., Phil, 2016/07/13
- [elpa] master e38a9f1 02/11: Added support for FILE argument :major, Phil, 2016/07/13
- [elpa] master 0882ecb 05/11: Respect `inhibit-mode-name-delight' when already set,
Phil <=
- [elpa] master d31e024 06/11: Support FILE value t, meaning the minor MODE is already loaded, Phil, 2016/07/13
- [elpa] master ca6b614 10/11: Add 'packages/delight/' from commit 'cd037ed41ae29dda89e36ff2ac8637aea96acded', Phil, 2016/07/13
- [elpa] master d23fb65 08/11: Added 'Maintainer' header, Phil, 2016/07/13
- [elpa] master 1865c0d 04/11: Added support for `mode-line-mode-menu', Phil, 2016/07/13
- [elpa] master cd037ed 09/11: Changed the URL header to point to Savannah, Phil, 2016/07/13
- [elpa] master 3c19dee 07/11: Updated v1.05 for Savannah and GNU ELPA, Phil, 2016/07/13