Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2024-11-27 04:58:00 +01:00
Code Issues Projects Releases Packages Wiki Activity

Merge branch 'arnebab.github.com/master' into externals/exwm

Browse source
This commit is contained in:
Adrián Medraño Calvo 2023-10-06 00:00:00 +00:00
commit 56db521a3e
1 changed files with 20 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
exwm-input.el
View file

@ -668,8 +668,26 @@ Current buffer must be an `exwm-mode' buffer."
(defun exwm-input--fake-last-command () (defun exwm-input--fake-last-command ()
"Fool some packages into thinking there is a change in the buffer." "Fool some packages into thinking there is a change in the buffer."
(setq last-command #'exwm-input--noop) (setq last-command #'exwm-input--noop)
(run-hooks 'pre-command-hook) ;; The Emacs manual says:
(run-hooks 'post-command-hook)) ;; > Quitting is suppressed while running pre-command-hook and
;; > post-command-hook. If an error happens while executing one of these
;; > hooks, it does not terminate execution of the hook; instead the error is
;; > silenced and the function in which the error occurred is removed from the
;; > hook.
;; We supress errors but neither continue execution nor we remove from the
;; hook.
(condition-case err
(run-hooks 'pre-command-hook)
((error)
(exwm--log "Error occurred while running pre-command-hook: %s"
(error-message-string err))
(xcb-debug:backtrace)))
(condition-case err
(run-hooks 'post-command-hook)
((error)
(exwm--log "Error occurred while running post-command-hook: %s"
(error-message-string err))
(xcb-debug:backtrace))))
(defun exwm-input--on-KeyPress-line-mode (key-press raw-data) (defun exwm-input--on-KeyPress-line-mode (key-press raw-data)
"Parse X KeyPress event to Emacs key event and then feed the command loop." "Parse X KeyPress event to Emacs key event and then feed the command loop."