Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-23 21:17:59 +01:00
Code Issues Projects Releases Packages Wiki Activity

; Expose `exwm-input-line-mode-passthrough' as a public interface.

Browse source
This commit is contained in:
Chris Feng 2017-02-24 23:25:02 +08:00
parent 46e1d7a754
commit d0e9895748
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
exwm-core.el
View file

@ -80,7 +80,7 @@
(logior xcb:EventMask:StructureNotify xcb:EventMask:PropertyChange)) (logior xcb:EventMask:StructureNotify xcb:EventMask:PropertyChange))
"Event mask set on all managed windows.") "Event mask set on all managed windows.")
(defvar exwm-input--line-mode-passthrough) (defvar exwm-input-line-mode-passthrough)
(defvar exwm-input--global-prefix-keys) (defvar exwm-input--global-prefix-keys)
(defvar exwm-input-prefix-keys) (defvar exwm-input-prefix-keys)
(defvar exwm-input--simulation-prefix-keys) (defvar exwm-input--simulation-prefix-keys)
@ -154,7 +154,7 @@
(lambda () (lambda ()
(interactive) (interactive)
(cond (cond
((or exwm-input--line-mode-passthrough ((or exwm-input-line-mode-passthrough
;; Do not test `exwm-input--during-command'. ;; Do not test `exwm-input--during-command'.
(active-minibuffer-window) (active-minibuffer-window)
(memq last-input-event exwm-input--global-prefix-keys) (memq last-input-event exwm-input--global-prefix-keys)

6
exwm-input.el
View file

@ -420,7 +420,7 @@ This value should always be overwritten.")
(defvar exwm-input--during-command nil (defvar exwm-input--during-command nil
"Indicate whether between `pre-command-hook' and `post-command-hook'.") "Indicate whether between `pre-command-hook' and `post-command-hook'.")
(defvar exwm-input--line-mode-passthrough nil (defvar exwm-input-line-mode-passthrough nil
"Non-nil makes 'line-mode' forwards all events to Emacs.") "Non-nil makes 'line-mode' forwards all events to Emacs.")
(defvar exwm-input--line-mode-cache nil "Cache for incomplete key sequence.") (defvar exwm-input--line-mode-cache nil "Cache for incomplete key sequence.")
@ -449,7 +449,7 @@ This value should always be overwritten.")
(setq event (xcb:keysyms:keysym->event (setq event (xcb:keysyms:keysym->event
exwm--connection (car keysym) exwm--connection (car keysym)
(logand state (lognot (cdr keysym))))) (logand state (lognot (cdr keysym)))))
(or exwm-input--line-mode-passthrough (or exwm-input-line-mode-passthrough
exwm-input--during-command exwm-input--during-command
;; Forward the event when there is an incomplete key ;; Forward the event when there is an incomplete key
;; sequence or when the minibuffer is active. ;; sequence or when the minibuffer is active.
@ -629,7 +629,7 @@ This value should always be overwritten.")
(let (key keys) (let (key keys)
(dotimes (i times) (dotimes (i times)
;; Skip events not from keyboard ;; Skip events not from keyboard
(let ((exwm-input--line-mode-passthrough t)) (let ((exwm-input-line-mode-passthrough t))
(catch 'break (catch 'break
(while t (while t
(setq key (read-key (format "Send key: %s (%d/%d)" (setq key (read-key (format "Send key: %s (%d/%d)"