[nongnu] elpa/telephone-line 314187790b 2/2: Merge pull request #136 from gagbo/fix_xfk_segment

[ELPA Syncer]

branch: elpa/telephone-line
commit 314187790b5c5e9962c6d8eac9323b5b801e4aef
Merge: ab518000fd cced3442e9
Author: Daniel Bordak <daniel.bordak@dbordak.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #136 from gagbo/fix_xfk_segment
    
    Fix predicate of xah-fly-keys segment
---
 telephone-line-segments.el | 5 +++--
 telephone-line.el          | 4 ++--
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/telephone-line-segments.el b/telephone-line-segments.el
index 107a5c2a0e..80266d08fb 100644
--- a/telephone-line-segments.el
+++ b/telephone-line-segments.el
@@ -325,8 +325,9 @@ Configure the face group telephone-line-evil to change the 
colors per-mode."
                               'mouse-1 #'flycheck-list-errors)))))
 
 (telephone-line-defsegment* telephone-line-xah-fly-keys-segment ()
-  (when (boundp xah-fly-insert-state-q)
-    (let ((tag (if xah-fly-insert-state-q
+  "Display the current mode for Xah Fly Keys."
+  (when (boundp xah-fly-insert-state-p)
+    (let ((tag (if xah-fly-insert-state-p
                    "INSERT" "COMMAND")))
       (if telephone-line-evil-use-short-tag
           (seq-take tag 1)
diff --git a/telephone-line.el b/telephone-line.el
index 876d27c3d6..52fb25027b 100644
--- a/telephone-line.el
+++ b/telephone-line.el
@@ -221,12 +221,12 @@ Secondary separators do not incur a background color 
change."
         ((not ryo-modal-mode) 'telephone-line-evil-insert)
         (t 'telephone-line-evil-normal)))
 
-(defvar xah-fly-insert-state-q) ; silence byte-compiler
+(defvar xah-fly-insert-state-p) ; silence byte-compiler
 (defun telephone-line-modal-face (active)
   "Return an appropriate face for the current mode, given whether the frame is 
ACTIVE."
   (cond ((not active) 'mode-line-inactive)
         ((bound-and-true-p xah-fly-keys)
-         (if xah-fly-insert-state-q
+         (if xah-fly-insert-state-p
              'telephone-line-evil-insert
            'telephone-line-evil-normal))
         ((not (bound-and-true-p evil-mode)) 'mode-line)