[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 821a084: Don't signal error from "C-x C-k l" about
[Emacs-diffs] master 821a084: Don't signal error from "C-x C-k l" about mouse events
Sat, 5 Jan 2019 04:38:26 -0500 (EST)
Author: Drew Adams <address@hidden>
Commit: Eli Zaretskii <address@hidden>
Don't signal error from "C-x C-k l" about mouse events
* lisp/edmacro.el (edmacro-fix-menu-commands): Ignore mouse
events instead of signaling an error. Display unsupported
events in the error message. (Bug#33930)
lisp/edmacro.el | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/lisp/edmacro.el b/lisp/edmacro.el
index 5502346..b480b23 100644
@@ -623,12 +623,16 @@ This function assumes that the events can be stored in a
(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.
- ;; 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
+ (noerror nil)
- (error "Macros with mouse clicks are not %s"
- "supported by this command"))))
+ (error "`edmacro-fix-menu-commands': Unsupported event: %S"
;; Reverse them again and make them back into a vector.
(vconcat (nreverse result)))
|[Prev in Thread]
||[Next in Thread]|
- [Emacs-diffs] master 821a084: Don't signal error from "C-x C-k l" about mouse events,
Eli Zaretskii <=