[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/macrostep a9cf8ea8c5 1/3: * macrostep.el (macrostep-mode-m
|
From: |
ELPA Syncer |
|
Subject: |
[nongnu] elpa/macrostep a9cf8ea8c5 1/3: * macrostep.el (macrostep-mode-map): Fix name to follow convention |
|
Date: |
Thu, 18 May 2023 16:00:31 -0400 (EDT) |
branch: elpa/macrostep
commit a9cf8ea8c52a01ba3fe73fa85e3467bb3af19a81
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Jonas Bernoulli <jonas@bernoul.li>
* macrostep.el (macrostep-mode-map): Fix name to follow convention
---
macrostep.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/macrostep.el b/macrostep.el
index 2650060795..3fd42aa6c7 100644
--- a/macrostep.el
+++ b/macrostep.el
@@ -457,8 +457,9 @@ The default value, `macrostep-macro-form-p', is specific to
Emacs Lisp.")
;;; Define keymap and minor mode
-(define-obsolete-variable-alias 'macrostep-keymap 'macrostep-mode-keymap
"2022")
-(defvar macrostep-mode-keymap
+(define-obsolete-variable-alias 'macrostep-mode-keymap 'macrostep-mode-map
"2023")
+(define-obsolete-variable-alias 'macrostep-keymap 'macrostep-mode-map "2022")
+(defvar macrostep-mode-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "RET") #'macrostep-expand)
(define-key map "=" #'macrostep-expand)
@@ -482,12 +483,12 @@ The default value, `macrostep-macro-form-p', is specific
to Emacs Lisp.")
(define-minor-mode macrostep-mode
"Minor mode for inline expansion of macros in Emacs Lisp source buffers.
-\\<macrostep-keymap>Progressively expand macro forms with
\\[macrostep-expand], collapse them with \\[macrostep-collapse],
+\\<macrostep-mode-map>Progressively expand macro forms with
\\[macrostep-expand], collapse them with \\[macrostep-collapse],
and move back and forth with \\[macrostep-next-macro] and
\\[macrostep-prev-macro].
Use \\[macrostep-collapse-all] or collapse all visible expansions to
quit and return to normal editing.
-\\{macrostep-keymap}"
+\\{macrostep-mode-map}"
:lighter " Macro-Stepper"
:group 'macrostep
(if macrostep-mode
@@ -502,7 +503,7 @@ quit and return to normal editing.
(add-hook 'post-command-hook #'macrostep-command-hook nil t)
(message
(substitute-command-keys
- "\\<macrostep-keymap>Entering macro stepper mode. Use
\\[macrostep-expand] to expand, \\[macrostep-collapse] to collapse,
\\[macrostep-collapse-all] to exit.")))
+ "\\<macrostep-mode-map>Entering macro stepper mode. Use
\\[macrostep-expand] to expand, \\[macrostep-collapse] to collapse,
\\[macrostep-collapse-all] to exit.")))
;; Exiting mode
(if macrostep-expansion-buffer