diff options
author | Stefan Kangas <stefan@marxist.se> | 2022-08-01 22:29:53 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2022-08-02 10:21:22 +0200 |
commit | c4807895363108cd6f4425f650a341cb5cefb90c (patch) | |
tree | 39205da96e06ee630bc2ce4339b44b01dbb66d4c | |
parent | 0b233d3e5f9f39363511fb2e1859c3ea3b0e7170 (diff) | |
download | emacs-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.el | 9 |
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. |