From: Stefan Kangas <stefan@marxist.se>
Date: Mon, 1 Aug 2022 20:29:53 +0000 (+0200)
Subject: Remove extraneous defvars from edmacro.el
X-Git-Tag: emacs-29.0.90~1447^2~555
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c4807895363108cd6f4425f650a341cb5cefb90c;p=emacs.git

Remove extraneous defvars from edmacro.el

* lisp/edmacro.el (edmacro-fix-menu-commands): Remove extraneous
defvars; they are already declared above.
---

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.