Make sure the buffer that generates the event is current

* exwm-input.el (exwm-input--on-ButtonPress): Set current buffer
when running pre- and post-command hooks.
This commit is contained in:
Nacho Barrientos 2022-12-11 12:23:42 +01:00 committed by Adrián Medraño Calvo
parent b62d5e79b0
commit 4d5b0e81cd

View file

@ -452,9 +452,12 @@ ARGS are additional arguments to CALLBACK."
(t (t
;; Replay this event by default. ;; Replay this event by default.
(setq fake-last-command t) (setq fake-last-command t)
(setq mode xcb:Allow:ReplayPointer)))) (setq mode xcb:Allow:ReplayPointer)))
(when fake-last-command (when fake-last-command
(if buffer
(with-current-buffer buffer
(exwm-input--fake-last-command)) (exwm-input--fake-last-command))
(exwm-input--fake-last-command))))
(xcb:+request exwm--connection (xcb:+request exwm--connection
(make-instance 'xcb:AllowEvents :mode mode :time xcb:Time:CurrentTime)) (make-instance 'xcb:AllowEvents :mode mode :time xcb:Time:CurrentTime))
(xcb:flush exwm--connection)) (xcb:flush exwm--connection))