[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/nano-modeline ddc260d4e8 4/4: Merge pull request #69 fr
From: |
ELPA Syncer |
Subject: |
[elpa] externals/nano-modeline ddc260d4e8 4/4: Merge pull request #69 from aaronjensen/nano-modeline-base-face |
Date: |
Tue, 9 Jan 2024 15:58:32 -0500 (EST) |
branch: externals/nano-modeline
commit ddc260d4e834a0c6242993c92647b518fea00352
Merge: 5025cf0500 7db8103e16
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: GitHub <noreply@github.com>
Merge pull request #69 from aaronjensen/nano-modeline-base-face
nano-modeline-base-face is declared as a variable
---
nano-modeline.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/nano-modeline.el b/nano-modeline.el
index 6cd08fff3e..ca71581a3d 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -182,6 +182,8 @@
:weight bold))
"Highlight button face.")
+(defvar nano-modeline-base-face nil)
+
(defun nano-modeline--stroke-width (face)
"Extract the line width of the box for the given FACE."
@@ -241,9 +243,9 @@ make it inherit the base face."
(state (intern (concat (symbol-name face-prefix)
(if active "-active" "-inactive"))))
(face (cdr (assoc state nano-modeline-faces)))
- (face (if (boundp 'nano-modeline-base-face)
- (push nano-modeline-base-face face)
- face))
+ (face (if nano-modeline-base-face
+ (push nano-modeline-base-face face)
+ face))
(face (reverse face)))
`(:inherit ,face)))