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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/keycast 3367c7d375 07/10: keycast--removed-tail: Rename to


From: ELPA Syncer
Subject: [nongnu] elpa/keycast 3367c7d375 07/10: keycast--removed-tail: Rename to keycast--header-line-removed-tail
Date: Mon, 5 Dec 2022 06:59:12 -0500 (EST)

branch: elpa/keycast
commit 3367c7d37587f4eee200f8ab10868ad4d9e09028
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    keycast--removed-tail: Rename to keycast--header-line-removed-tail
---
 keycast.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/keycast.el b/keycast.el
index a62eeab2ee..38bb519769 100644
--- a/keycast.el
+++ b/keycast.el
@@ -410,7 +410,7 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
 
 ;;; Mode-Line
 
-(defvar keycast--removed-tail nil)
+(defvar keycast--mode-line-removed-tail nil)
 (defvar keycast--temporary-mode-line nil)
 (defvar keycast--mode-line-modified-buffers nil)
 
@@ -436,7 +436,7 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
          'keycast-mode-line-mode keycast-mode-line-insert-after
          'mode-line-format 'keycast-mode-line-insert-after))
       (cond (keycast-mode-line-remove-tail-elements
-             (setq keycast--removed-tail (cdr cons))
+             (setq keycast--mode-line-removed-tail (cdr cons))
              (setcdr cons (list 'keycast-mode-line)))
             (t
              (setcdr cons (cons 'keycast-mode-line (cdr cons)))))
@@ -448,10 +448,10 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
       (cond (keycast--temporary-mode-line
              (setq-default mode-line-format nil)
              (setq keycast--temporary-mode-line nil))
-            (keycast--removed-tail
-             (setcar cons (car keycast--removed-tail))
-             (setcdr cons (cdr keycast--removed-tail))
-             (setq keycast--removed-tail nil))
+            (keycast--mode-line-removed-tail
+             (setcar cons (car keycast--mode-line-removed-tail))
+             (setcdr cons (cdr keycast--mode-line-removed-tail))
+             (setq keycast--mode-line-removed-tail nil))
             (t
              (setcar cons (cadr cons))
              (setcdr cons (cddr cons)))))



reply via email to

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