From c4807895363108cd6f4425f650a341cb5cefb90c Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 1 Aug 2022 22:29:53 +0200 Subject: [PATCH] Remove extraneous defvars from edmacro.el * lisp/edmacro.el (edmacro-fix-menu-commands): Remove extraneous defvars; they are already declared above. --- lisp/edmacro.el | 9 ++++----- 1 file 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. -- 2.39.5