[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)))
- [nongnu] elpa/keycast updated (92a14313fe -> 53514c3dc3), ELPA Syncer, 2022/12/05
- [nongnu] elpa/keycast 36d7bfa75f 09/10: keycast-header-line-mode: New mode, ELPA Syncer, 2022/12/05
- [nongnu] elpa/keycast 81bad0faa8 08/10: keycast--tree-member: Move definition, ELPA Syncer, 2022/12/05
- [nongnu] elpa/keycast 860b0781a4 05/10: keycast-mode-line-mode: Support atomic and void global mode-line-format, ELPA Syncer, 2022/12/05
- [nongnu] elpa/keycast 1c92a5daf5 02/10: Rename keycast-mode to keycast-mode-line-mode,
ELPA Syncer <=
- [nongnu] elpa/keycast f87f9c965e 06/10: keycast-mode-line-mode: Support buffers with local mode-line-format, ELPA Syncer, 2022/12/05
- [nongnu] elpa/keycast 3df44bd9e7 04/10: keycast-mode-line-mode: Make sure to modify global mode-line-format, ELPA Syncer, 2022/12/05
- [nongnu] elpa/keycast 53514c3dc3 10/10: Update documentation, ELPA Syncer, 2022/12/05
- [nongnu] elpa/keycast 31446ad19c 01/10: Split Options section into subsections, ELPA Syncer, 2022/12/05
- [nongnu] elpa/keycast 3367c7d375 07/10: keycast--removed-tail: Rename to keycast--header-line-removed-tail, ELPA Syncer, 2022/12/05
- [nongnu] elpa/keycast 38a09aa5e3 03/10: keycast-mode-line-mode: Cosmetics, ELPA Syncer, 2022/12/05