[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/telephone-line cced3442e9 1/2: Fix predicate of xah-fly-ke
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/telephone-line cced3442e9 1/2: Fix predicate of xah-fly-keys segment |
Date: |
Sun, 30 Oct 2022 18:59:22 -0400 (EDT) |
branch: elpa/telephone-line
commit cced3442e95fd0355bab14ebf039db22242c40c9
Author: Gerry Agbobada <git@gagbo.net>
Commit: Gerry Agbobada <git@gagbo.net>
Fix predicate of xah-fly-keys segment
The variable name changed approx. 1 year ago, in
https://github.com/xahlee/xah-fly-keys/commit/c6a7367afa0dbdb734319268f4e0bb708f4fec11
---
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/telephone-line cced3442e9 1/2: Fix predicate of xah-fly-keys segment,
ELPA Syncer <=