[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/telephone-line b8d06611e4 4/5: Merge pull request #122 fro
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/telephone-line b8d06611e4 4/5: Merge pull request #122 from skangas/byte-compiler-warnings |
Date: |
Sat, 8 Jan 2022 16:58:32 -0500 (EST) |
branch: elpa/telephone-line
commit b8d06611e4e31866256c03796c5e1efe65280b34
Merge: ff526441a2 a7422d4b87
Author: Daniel Bordak <daniel.bordak@dbordak.com>
Commit: GitHub <noreply@github.com>
Merge pull request #122 from skangas/byte-compiler-warnings
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 60f271c208..e53179d5a6 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 556eefbd7b..6ad8ccb841 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)