procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't signal error from "C-x C-k l" about mouse events

Browse source 
* lisp/edmacro.el (edmacro-fix-menu-commands): Ignore mouse
events instead of signaling an error.  Display unsupported
events in the error message.  (Bug#33930)
This commit is contained in:
Drew Adams 2018-12-30 11:37:28 -08:00 • committed by Eli Zaretskii
parent a3c79d44cc
commit 821a0840b2
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/edmacro.el
View file

@ -623,12 +623,16 @@ This function assumes that the events can be stored in a string."
(push (vector 'menu-bar (car ev)) result))
;; It would be nice to do pop-up menus, too, but not enough
;; info is recorded in macros to make this possible.
(noerror
;; Just ignore mouse events.
((or (mouse-event-p ev) (mouse-movement-p ev)
(memq (event-basic-type ev)
(list mouse-wheel-down-event mouse-wheel-up-event
mouse-wheel-right-event
mouse-wheel-left-event)))
nil)
(noerror nil)
(t
(error "Macros with mouse clicks are not %s"
"supported by this command"))))
(error "`edmacro-fix-menu-commands': Unsupported event: %S"
ev))))
;; Reverse them again and make them back into a vector.
(vconcat (nreverse result)))
macro))