[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/telephone-line a7422d4b87 1/5: Fix some byte-compiler warn
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/telephone-line a7422d4b87 1/5: Fix some byte-compiler warnings |
Date: |
Sat, 8 Jan 2022 16:58:32 -0500 (EST) |
branch: elpa/telephone-line
commit a7422d4b8738646b266433345e10c011fe5c94f0
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
Fix some byte-compiler warnings
---
telephone-line-utils.el | 4 +++-
telephone-line.el | 2 ++
2 files changed, 5 insertions(+), 1 deletion(-)
diff --git a/telephone-line-utils.el b/telephone-line-utils.el
index a84886814e..9d72bbd86b 100644
--- a/telephone-line-utils.el
+++ b/telephone-line-utils.el
@@ -276,7 +276,9 @@ Empty strings will not render."
;;;###autoload
(defun telephone-line-raw (str &optional preformatted)
- "Conditionally render STR as mode-line data, or just verify output if not
PREFORMATTED.
+ "Conditionally render STR as mode-line data.
+If optional argument PREFORMATTED is non-nil, verify the output
+instead.
Return nil for blank/empty strings."
(let ((trimmed-str (string-trim (format-mode-line str))))
(unless (seq-empty-p trimmed-str)
diff --git a/telephone-line.el b/telephone-line.el
index 825e4a425b..06b0318ab8 100644
--- a/telephone-line.el
+++ b/telephone-line.el
@@ -207,6 +207,7 @@ Secondary separators do not incur a background color
change."
(face-attribute (telephone-line-face-map sym) :foreground)
(face-attribute (telephone-line-face-map subseparator-sym)
:background))))
+(defvar ryo-modal-mode) ; silence byte-compiler
(defun telephone-line-ryo-modal-face (active)
"Return an appropriate face depending whether ryo-modal is activated, given
whether frame is ACTIVE."
(cond ((not active) 'mode-line-inactive)
@@ -214,6 +215,7 @@ 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
(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)