mirror of
https://github.com/emacs-exwm/exwm.git
synced 2024-11-30 16:07:59 +01:00
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:
parent
b62d5e79b0
commit
4d5b0e81cd
1 changed files with 6 additions and 3 deletions
|
@ -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))
|
||||||
|
|
Loading…
Reference in a new issue