mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 22:41:06 -08:00
Code Issues Projects Releases Wiki Activity

Remove extraneous defvars from edmacro.el

Browse source 
* lisp/edmacro.el (edmacro-fix-menu-commands): Remove extraneous
defvars; they are already declared above.
This commit is contained in:
Stefan Kangas 2022-08-01 22:29:53 +02:00
parent 0b233d3e5f
commit c480789536
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/edmacro.el
View file

@ -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." or nil, use a compact 80-column format."
(and macro (symbolp macro) (setq macro (symbol-function macro))) (and macro (symbolp macro) (setq macro (symbol-function macro)))
(edmacro-format-keys (or macro last-kbd-macro) verbose)) (edmacro-format-keys (or macro last-kbd-macro) verbose))
;;; Commands for *Edit Macro* buffer. ;;; Commands for *Edit Macro* buffer.
@ -446,6 +447,7 @@ doubt, use whitespace."
(interactive) (interactive)
(error "This mode can be enabled only by `edit-kbd-macro'")) (error "This mode can be enabled only by `edit-kbd-macro'"))
(put 'edmacro-mode 'mode-class 'special) (put 'edmacro-mode 'mode-class 'special)
;;; Formatting a keyboard macro as human-readable text. ;;; 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) (defun edmacro-fix-menu-commands (macro &optional noerror)
(if (vectorp macro) (if (vectorp macro)
(let (result) (let (result)
;; Not preloaded in without-x builds. ;; Not preloaded in a --without-x build.
(require 'mwheel) (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. ;; Make a list of the elements.
(setq macro (append macro nil)) (setq macro (append macro nil))
(dolist (ev macro) (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. ;; Reverse them again and make them back into a vector.
(vconcat (nreverse result))) (vconcat (nreverse result)))
macro)) macro))
;;; Parsing a human-readable keyboard macro. ;;; Parsing a human-readable keyboard macro.