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

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

[nongnu] elpa/keycast 1c92a5daf5 02/10: Rename keycast-mode to keycast-m


From: ELPA Syncer
Subject: [nongnu] elpa/keycast 1c92a5daf5 02/10: Rename keycast-mode to keycast-mode-line-mode
Date: Mon, 5 Dec 2022 06:59:11 -0500 (EST)

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

    Rename keycast-mode to keycast-mode-line-mode
---
 keycast.el | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/keycast.el b/keycast.el
index dd24e2baa1..57f1d4e98a 100644
--- a/keycast.el
+++ b/keycast.el
@@ -277,12 +277,13 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
 
 ;;; Common
 
-(defvar keycast-mode)
+(defvar keycast-mode-line-mode)
 (defvar keycast-tab-bar-mode)
 (defvar keycast-log-mode)
 
 (defun keycast--mode-active-p (&optional line)
-  (or keycast-mode keycast-tab-bar-mode
+  (or keycast-mode-line-mode
+      keycast-tab-bar-mode
       (and (not line) keycast-log-mode)))
 
 (defvar keycast--this-command-desc nil)
@@ -392,18 +393,20 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
 
 (defvar keycast--removed-tail nil)
 
+(defalias 'keycast-mode 'keycast-mode-line-mode)
+
 ;;;###autoload
-(define-minor-mode keycast-mode
+(define-minor-mode keycast-mode-line-mode
   "Show current command and its key binding in the mode line."
   :global t
-  (if keycast-mode
+  (if keycast-mode-line-mode
       (let ((cons (keycast--tree-member keycast-mode-line-insert-after 
mode-line-format)))
         (unless cons
-          (setq keycast-mode nil)
+          (setq keycast-mode-line-mode nil)
           (user-error
            "Cannot turn on %s.  %s not found in %s.  Try customizing %s."
-           'keycast-mode keycast-mode-line-insert-after 'mode-line-format
-           'keycast-mode-line-insert-after))
+           '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))
                (setcdr cons (list 'keycast-mode-line)))



reply via email to

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