From 045a4fe94c18cd36ef297e62a80cdff449af3aa5 Mon Sep 17 00:00:00 2001
From: Phil Sainty <psainty@orcon.net.nz>
Date: Thu, 9 Sep 2021 19:53:25 +1200
Subject: [PATCH] ; * lisp/so-long.el (so-long-mode): Use
`so-long-mode-line-active' face
---
lisp/so-long.el | 15 +++++++++++----
1 file changed, 11 insertions(+), 4 deletions(-)
diff --git a/lisp/so-long.el b/lisp/so-long.el
index 800a68e9c67..e271ff6be3c 100644
--- a/lisp/so-long.el
+++ b/lisp/so-long.el
@@ -8,7 +8,7 @@
;; Keywords: convenience
;; Created: 23 Dec 2015
;; Package-Requires: ((emacs "24.4"))
-;; Version: 1.1.1
+;; Version: 1.1.2
;; This file is part of GNU Emacs.
@@ -410,6 +410,7 @@
;; * Change Log:
;;
+;; 1.1.2 - Use `so-long-mode-line-active' face on `mode-name' in `so-long-mode'.
;; 1.1.1 - Identical to 1.1, but fixing an incorrect GNU ELPA release.
;; 1.1 - Utilise `buffer-line-statistics' in Emacs 28+, with the new
;; `so-long-predicate' function `so-long-statistics-excessive-p'.
@@ -477,7 +478,7 @@
'(so-long ("1.0" . "27.1")
("1.1" . "28.1")))
-(defconst so-long--latest-version "1.1")
+(defconst so-long--latest-version "1.1.2")
(declare-function buffer-line-statistics "fns.c" t t) ;; Emacs 28+
(declare-function longlines-mode "longlines")
@@ -969,7 +970,12 @@ If nil, no mode line indicator will be displayed."
(defface so-long-mode-line-active
'((t :inherit mode-line-emphasis))
- "Face for `so-long-mode-line-info' when mitigations are active."
+ "Face for the mode line construct when mitigations are active.
+
+Applied to `mode-name' in the `so-long-mode' major mode, and to
+`so-long-mode-line-label' otherwise (for non-major-mode actions).
+
+See also `so-long-mode-line-info'."
:package-version '(so-long . "1.0"))
(defface so-long-mode-line-inactive
@@ -1355,7 +1361,8 @@ This minor mode is a standard `so-long-action' option."
"Major mode keymap and menu for `so-long-mode'.")
;;;###autoload
-(define-derived-mode so-long-mode nil "So Long"
+(define-derived-mode so-long-mode nil
+ (propertize "So Long" 'face 'so-long-mode-line-active)
"This major mode is the default `so-long-action' option.
The normal reason for this mode being active is that `global-so-long-mode' is
--
2.39.5