emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]