mirror of
https://github.com/ch11ng/exwm.git
synced 2024-11-27 13:07:59 +01:00
Merge branch 'nbarrientos.github.com/post-command-hook' into externals/exwm
This commit is contained in:
commit
a417f0d45e
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
|
||||||
(exwm-input--fake-last-command))
|
(if buffer
|
||||||
|
(with-current-buffer buffer
|
||||||
|
(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