summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorStefan Kangas <stefan@marxist.se>2022-08-01 22:29:53 +0200
committerStefan Kangas <stefan@marxist.se>2022-08-02 10:21:22 +0200
commitc4807895363108cd6f4425f650a341cb5cefb90c (patch)
tree39205da96e06ee630bc2ce4339b44b01dbb66d4c
parent0b233d3e5f9f39363511fb2e1859c3ea3b0e7170 (diff)
downloademacs-c4807895363108cd6f4425f650a341cb5cefb90c.tar.gz
emacs-c4807895363108cd6f4425f650a341cb5cefb90c.tar.bz2
emacs-c4807895363108cd6f4425f650a341cb5cefb90c.zip
Remove extraneous defvars from edmacro.el
* lisp/edmacro.el (edmacro-fix-menu-commands): Remove extraneous defvars; they are already declared above.
-rw-r--r--lisp/edmacro.el9
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/edmacro.el b/lisp/edmacro.el
index bdc50c5885a..efffab9b30b 100644
--- a/lisp/edmacro.el
+++ b/lisp/edmacro.el
@@ -251,6 +251,7 @@ If VERBOSE is `1', put everything on one line. If VERBOSE is omitted
or nil, use a compact 80-column format."
(and macro (symbolp macro) (setq macro (symbol-function macro)))
(edmacro-format-keys (or macro last-kbd-macro) verbose))
+
;;; Commands for *Edit Macro* buffer.
@@ -446,6 +447,7 @@ doubt, use whitespace."
(interactive)
(error "This mode can be enabled only by `edit-kbd-macro'"))
(put 'edmacro-mode 'mode-class 'special)
+
;;; Formatting a keyboard macro as human-readable text.
@@ -637,12 +639,8 @@ This function assumes that the events can be stored in a string."
(defun edmacro-fix-menu-commands (macro &optional noerror)
(if (vectorp macro)
(let (result)
- ;; Not preloaded in without-x builds.
+ ;; Not preloaded in a --without-x build.
(require 'mwheel)
- (defvar mouse-wheel-down-event)
- (defvar mouse-wheel-left-event)
- (defvar mouse-wheel-right-event)
- (defvar mouse-wheel-up-event)
;; Make a list of the elements.
(setq macro (append macro nil))
(dolist (ev macro)
@@ -669,6 +667,7 @@ This function assumes that the events can be stored in a string."
;; Reverse them again and make them back into a vector.
(vconcat (nreverse result)))
macro))
+
;;; Parsing a human-readable keyboard macro.