;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\210\313\314\315\316\317DD\320\321\322\323\324\325\326& \210\313\327\315\316\330DD\331\321\332\323\333\325\334& \210\313\335\315\316\336DD\337\321\332\323\340\325\341& \210\313\342\315\316\343DD\344\321\345%\207" [require xcb-keysyms exwm-core custom-declare-group exwm-input nil "Input." :version "25.3" :group exwm custom-declare-variable exwm-input-prefix-keys funcall function #[0 "\300\207" [(24 21 8 134217848 134217824 134217766 134217786)] 1] "List of prefix keys EXWM should forward to Emacs when in line-mode.\n\nThe point is to make keys like 'C-x C-f' forwarded to Emacs in line-mode.\nThere is no need to add prefix keys for global/simulation keys or those\ndefined in `exwm-mode-map' here." :type (repeat key-sequence) :get #[257 "\300\301\302!\"\207" [mapcar vector default-value] 5 "\n\n(fn SYMBOL)"] :set #[514 "\300\301\"L\207" [mapcar #[257 "\300!\203\n\211\301H\207\207" [sequencep 0] 3 "\n\n(fn I)"]] 6 "\n\n(fn SYMBOL VALUE)"] exwm-input-move-event #[0 "\300\207" [s-down-mouse-1] 1] "Emacs event to start moving a window." key-sequence #[257 "\300!\301!\203 \211\202\302!\207" [default-value mouse-event-p vector] 4 "\n\n(fn SYMBOL)"] #[514 "\300!\203 \301H\202L\207" [sequencep 0] 5 "\n\n(fn SYMBOL VALUE)"] exwm-input-resize-event #[0 "\300\207" [s-down-mouse-3] 1] "Emacs event to start resizing a window." #[257 "\300!\301!\203 \211\202\302!\207" [default-value mouse-event-p vector] 4 "\n\n(fn SYMBOL)"] #[514 "\300!\203 \301H\202L\207" [sequencep 0] 5 "\n\n(fn SYMBOL VALUE)"] exwm-input-line-mode-passthrough #[0 "\300\207" [nil] 1] "Non-nil makes 'line-mode' forward all events to Emacs." boolean] 10) #@74 Time interval (in seconds) for accumulating input focus update requests. (defconst exwm-input--update-focus-interval 0.01 (#$ . 2144)) #@70 Indicate whether between `pre-command-hook' and `post-command-hook'. (defvar exwm-input--during-command nil (#$ . 2285)) #@22 Global key bindings. (defvar exwm-input--global-keys nil (#$ . 2412)) #@45 List of prefix keys of global key bindings. (defvar exwm-input--global-prefix-keys nil (#$ . 2488)) #@36 Cache for incomplete key sequence. (defvar exwm-input--line-mode-cache nil (#$ . 2594)) #@36 Whether simulation keys are local. (defvar exwm-input--local-simulation-keys nil (#$ . 2688)) #@31 Simulation keys in line-mode. (defvar exwm-input--simulation-keys nil (#$ . 2788)) #@41 Skip the upcoming 'buffer-list-update'. (defvar exwm-input--skip-buffer-list-update nil (#$ . 2877)) #@62 Non-nil indicates it's in temporary line-mode for char-mode. (defvar exwm-input--temp-line-mode nil (#$ . 2984)) (defvar exwm-input--timestamp-atom nil) (defvar exwm-input--timestamp-callback nil) (defvar exwm-input--timestamp-window nil) #@29 Timer for polling the lock. (defvar exwm-input--update-focus-defer-timer nil (#$ . 3229)) #@49 Lock for solving input focus update contention. (defvar exwm-input--update-focus-lock nil (#$ . 3325)) #@48 Timer for deferring the update of input focus. (defvar exwm-input--update-focus-timer nil (#$ . 3434)) #@76 The (Emacs) window to be focused. This value should always be overwritten. (defvar exwm-input--update-focus-window nil (#$ . 3543)) #@38 Timer for detecting echo area dirty. (defvar exwm-input--echo-area-timer nil (#$ . 3681)) #@42 Hook to run when EXWM receives an event. (defvar exwm-input--event-hook nil (#$ . 3777)) #@133 Hook to run when an input mode changes on an `exwm-mode' buffer. Current buffer will be the `exwm-mode' buffer when this hook runs. (defvar exwm-input-input-mode-change-hook nil (#$ . 3873)) #@56 Set input focus to window ID in a proper way. (fn ID) (defalias 'exwm-input--set-focus #[257 "\306\307\310\311\312!\"\313#@\314\"\313\315 \"A\262\204 =\203A\n\203\316\317 \203/ \2020\320\321\2066\322\206<\322%\210\202\fU\204a\307\310\311\323\324#\"\313#@\262\211\203a\306\325\"\262\n\203\316\326 \203p \202q\320\321\206w\322\206}\322%\210\315 \"A\262\205\260=?\205\260r\315 \"A\262q\210\327\330 \206\251>?>$)\207" [exwm--connection exwm--id-buffer-alist exwm-debug exwm-debug-log-time-function xcb:Window:None exwm--hints-input slot-value xcb:-+reply xcb:-+request-unchecked make-instance xcb:GetInputFocus nil focus assoc xcb-debug:message "%s%s: #x%x => #x%x\n" "" "exwm-input--set-focus" 0 xcb:QueryTree :window parent "%s%s: #x%x (corrected) => #x%x\n" exwm-input--update-timestamp #[1028 "\203\302\303\304\305 \306 \307\f&\"\210\211\2034\303\310\311\307%\312\"\262\302\303\313\314\315%\"\266\316!\210\317!\207" [exwm--connection xcb:InputFocus:Parent xcb:-+request make-instance xcb:SetInputFocus :revert-to :focus :time xcb:icccm:WM_TAKE_FOCUS :window xcb:marshal xcb:icccm:SendEvent :destination :event exwm-input--set-active-window xcb:flush] 14 "\n\n(fn TIMESTAMP ID SEND-INPUT-FOCUS WM-TAKE-FOCUS)"] xcb:Atom:WM_TAKE_FOCUS exwm--protocols] 11 (#$ . 4070)]) #@139 Fetch the latest timestamp from the server and feed it to CALLBACK. ARGS are additional arguments to CALLBACK. (fn CALLBACK &rest ARGS) (defalias 'exwm-input--update-timestamp #[385 "B \203\306\307\n\203\n \202\310\311#\210\312 \313\314\315\f\316 \317\320\321\322\323\324\325\326&\"\210\327 !\207" [exwm-input--timestamp-callback exwm-debug exwm-debug-log-time-function exwm--connection xcb:PropMode:Replace exwm-input--timestamp-window xcb-debug:message "%s%s: \n" "" "exwm-input--update-timestamp" xcb:-+request make-instance xcb:ChangeProperty :mode :window :property :type :format 32 :data-len 0 :data nil xcb:flush exwm-input--timestamp-atom xcb:Atom:CARDINAL] 20 (#$ . 5428)]) #@52 Handle PropertyNotify events. (fn DATA SYNTHETIC) (defalias 'exwm-input--on-PropertyNotify #[514 "\203\304\305 \203 \202\306\307#\210\n\2058\310\311!\312\"\210 \313\314\"U\2056\315\n@\313\316\"\nA#\210\317\211\262\207" [exwm-debug exwm-debug-log-time-function exwm-input--timestamp-callback exwm-input--timestamp-window xcb-debug:message "%s%s: \n" "" "exwm-input--on-PropertyNotify" make-instance xcb:PropertyNotify xcb:unmarshal slot-value window apply time nil] 8 (#$ . 6133)]) (defvar exwm-input--last-enter-notify-position nil) #@49 Handle EnterNotify events. (fn DATA SYNTHETIC) (defalias 'exwm-input--on-EnterNotify #[514 "\306\307!\310\211\211\211\211\211\311\n\"\210\312\313\"\314\"A\262\262\315\316\"\262 \203=\317\320\n\2035\n \2026\321\322\n\n%\210\203\370\203\370\323 =\204\370 \324\312\325\"\312\326\"\"\232\204\370\327!\262\330\331\"\262\f=\204\221\332!\203{\333!\210\202\221rq\210\334\335!\203\220 \f=\204\220\333 !\210)\336!\262\306\337\340\341\342\312\343\"\344\312\345\"\346\f\3479\350\312\325\"\351\312\326\"\352\312\353\"\341\234\\\354\312\355\"\356\234\\\357\312\360\"\361\356&\262\362:\306\363\364\341\365\n\366;\346\367 :\"& \"\210\370:!\210\324\312\325\"\312\326\"\"\211\262\207" [exwm--id-buffer-alist exwm-debug exwm-debug-log-time-function exwm-input--last-enter-notify-position exwm-workspace--current exwm--frame make-instance xcb:EnterNotify nil xcb:unmarshal slot-value event assoc get-buffer-window t xcb-debug:message "%s%s: buffer=%s; window=%s\n" "" "exwm-input--on-EnterNotify" selected-window vector root-x root-y window-frame frame-parameter exwm-id exwm-workspace--workspace-p exwm-workspace-switch derived-mode-p exwm-mode window-inside-pixel-edges xcb:MotionNotify :detail 0 :time time :root root :event :child :root-x :root-y :event-x event-x :event-y event-y 1 :state state :same-screen xcb:-+request xcb:SendEvent :propagate :destination :event-mask xcb:marshal xcb:flush xcb:Window:None exwm--connection xcb:EventMask:NoEvent] 34 (#$ . 6689)]) (defalias 'exwm-input--on-keysyms-update #[0 "\203\303\304 \203 \202\305\306#\210\307\310 )\207" [exwm-debug exwm-debug-log-time-function exwm-input--global-prefix-keys xcb-debug:message "%s%s: \n" "" "exwm-input--on-keysyms-update" nil exwm-input--update-global-prefix-keys] 4]) #@56 Run in `buffer-list-update-hook' to track input focus. (defalias 'exwm-input--on-buffer-list-update #[0 "\304 ?\205,?\205, \203!\305\306\n\203\n \202\307\310p\311 %\210\312\313 \314\"\210\311 \315 \207" [exwm-input--skip-buffer-list-update exwm-debug exwm-debug-log-time-function exwm-input--update-focus-window exwm-workspace--client-p xcb-debug:message "%s%s: current-buffer=%S selected-window=%S\n" "" "exwm-input--on-buffer-list-update" selected-window redirect-frame-focus selected-frame nil exwm-input--update-focus-defer] 6 (#$ . 8515)]) #@29 Defer updating input focus. (defalias 'exwm-input--update-focus-defer #[0 "\203\305!\210 \203\306\307\310 \206\311\312!!\312\\\313\314#\211\207\313\n\203)\305\n!\210\315 \313\316\f$\211\207" [exwm-input--update-focus-defer-timer exwm-input--update-focus-lock exwm-input--update-focus-timer exwm-input--update-focus-interval exwm-input--update-focus-window cancel-timer run-with-idle-timer float-time current-idle-time seconds-to-time 0 nil exwm-input--update-focus-defer run-with-timer exwm-input--update-focus-commit] 5 (#$ . 9075)]) #@43 Commit updating input focus. (fn WINDOW) (defalias 'exwm-input--update-focus-commit #[257 "\301\302\216\303!)\207" [exwm-input--update-focus-lock t #[0 "\301\211\207" [exwm-input--update-focus-lock nil] 2] exwm-input--update-focus] 3 (#$ . 9628)]) #@34 Update input focus. (fn WINDOW) (defalias 'exwm-input--update-focus #[257 "\306!\205$\203\307\310 \203 \202\311\312\313!%\210r\313!q\210\314\315!\203\242\n =\204J\316\n\317#\210\320\321\322 \206@\323\324!!\324\\\325\326\n$\202#\203^\307\327 \203Y \202Z\311\312\f$\210 \203\234\3301\331\332\333\f\3342\3353&\"\210\3301\331\332\333\336 \337\"\334\34042\"\341\f\3355& \"\210\342 \203\227\343\f\"\210\3441!\210\345\f!\202#\346 =\205#\203\275\307\347 \203\270 \202\271\311\312$\210\350\351 !\203\351 =\204\203\346\307\352 \203\332 \202\333\311\312\353!\351 &\210\316\351 \317#\210\320\321\322 \206\367\323\324!!\324\\\325\326\351 $\202#\354 \203\f\355 \204\356\353!!\210\202\356\353\357 !!\210\360 \210\3441!)\207" [exwm-debug exwm-debug-log-time-function exwm--frame exwm-workspace--current exwm--id exwm--floating-frame window-live-p xcb-debug:message "%s%s: focus-window=%s focus-buffer=%s\n" "" "exwm-input--update-focus" window-buffer derived-mode-p exwm-mode set-frame-parameter exwm-selected-window run-with-idle-timer float-time current-idle-time seconds-to-time 0 nil exwm-workspace-switch "%s%s: Set focus on #x%x\n" xcb:-+request make-instance xcb:ConfigureWindow :window :value-mask :stack-mode frame-parameter exwm-container logior :sibling exwm-layout--iconic-state-p exwm-layout--show xcb:flush exwm-input--set-focus selected-window "%s%s: Focus on %s\n" exwm-workspace--workspace-p selected-frame "%s%s: Switching to %s's workspace %s (%s)\n" window-frame exwm-workspace--minibuffer-own-frame-p minibufferp x-focus-frame minibuffer-window exwm-input--set-active-window exwm--connection xcb:ConfigWindow:StackMode xcb:StackMode:TopIf xcb:ConfigWindow:Sibling xcb:StackMode:Below] 13 (#$ . 9886)]) #@44 Set _NET_ACTIVE_WINDOW. (fn &optional ID) (defalias 'exwm-input--set-active-window #[256 "\203\305\306 \203 \202\307\310#\210\311\n\312\313\314 \315\206 \f%\"\207" [exwm-debug exwm-debug-log-time-function exwm--connection exwm--root xcb:Window:None xcb-debug:message "%s%s: \n" "" "exwm-input--set-active-window" xcb:-+request make-instance xcb:ewmh:set-_NET_ACTIVE_WINDOW :window :data] 9 (#$ . 11669)]) #@48 Handle ButtonPress event. (fn DATA SYNTHETIC) (defalias 'exwm-input--on-ButtonPress #[514 "\306\307!\310\211\211\211\311 \"\210 \203&\312\313\n\203\n \202\314\315 \316p!%\210\317\f\320\321\"\320\322\"#\262\320\323\"\324 \"A\262\262\325\326\"\262,=\203o\203orq\210\327\330!?\206_-)\203o\331\320\323\".\"\210\202/=\203\225\203\225rq\210\327\330!?\206\207-)\203\225\331\320\323\"!\210\202\203\332 =\204\354\333!\2620=\204\321\334!\203\271\335!\210\202\321rq\210\327\330!\203\32010=\204\320\3351!\210)\336!\203\336\337!\210\202\354\325\326\"\262\203\354\337!\210rq\210\327\330!\203\3402\341\"\203\342\"\262\202\3402\343\"\203\344 \262)\2023\262\210\345\f\306\346\347 \3504%\"\210\351\f!\266\352\353!\207" [xcb:Allow:SyncPointer exwm-debug exwm-debug-log-time-function major-mode exwm--connection exwm--id-buffer-alist make-instance xcb:ButtonPress nil xcb:unmarshal xcb-debug:message "%s%s: major-mode=%s buffer=%s\n" "" "exwm-input--on-ButtonPress" buffer-name xcb:keysyms:keysym->event slot-value detail state event assoc get-buffer-window t derived-mode-p exwm-mode exwm-floating--start-moveresize selected-window window-frame exwm-workspace--workspace-p exwm-workspace-switch window-live-p select-window eql line-mode exwm-input--on-ButtonPress-line-mode char-mode exwm-input--on-ButtonPress-char-mode xcb:-+request xcb:AllowEvents :mode :time xcb:flush run-hooks exwm-input--event-hook exwm-input-move-event exwm--floating-frame xcb:ewmh:_NET_WM_MOVERESIZE_MOVE exwm-input-resize-event exwm-workspace--current exwm--frame exwm--input-mode xcb:Allow:ReplayPointer xcb:Time:CurrentTime] 16 (#$ . 12092)]) #@45 Handle KeyPress event. (fn DATA SYNTHETIC) (defalias 'exwm-input--on-KeyPress #[514 "r\304\305 !q\210\306\307!\310\"\210\203&\311\312 \203 \202\313\314\n\315p!%\210\316\317!\203J\320 \321\"\203;\322\"\210\202N\320 \323\"\203N\324\"\210\202N\324!\210\210\325\326!)\207" [exwm-debug exwm-debug-log-time-function major-mode exwm--input-mode window-buffer selected-window make-instance xcb:KeyPress xcb:unmarshal xcb-debug:message "%s%s: major-mode=%s buffer=%s\n" "" "exwm-input--on-KeyPress" buffer-name derived-mode-p exwm-mode eql line-mode exwm-input--on-KeyPress-line-mode char-mode exwm-input--on-KeyPress-char-mode run-hooks exwm-input--event-hook] 10 (#$ . 13799)]) #@50 Handle CreateNotify events. (fn DATA SYNTHETIC) (defalias 'exwm-input--on-CreateNotify #[514 "\203\302\303 \203 \202\304\305#\210\306\307!\310\"\210\211\311\312\313\"!\262\207" [exwm-debug exwm-debug-log-time-function xcb-debug:message "%s%s: \n" "" "exwm-input--on-CreateNotify" make-instance xcb:CreateNotify xcb:unmarshal exwm-input--grab-global-prefix-keys slot-value window] 8 (#$ . 14496)]) #@42 Update `exwm-input--global-prefix-keys'. (defalias 'exwm-input--update-global-prefix-keys #[0 "\203\306\307 \203 \202\310\311#\210\n\205Y \312\f\211\203<\211@\211\313\234\314 \"\2030 \210\2024\211 B\210A\266\202\202\210\211 \232?\205W\315\316\317\320\n\321\n\322\323\324 #\"\312#@\325\"\"\262\207" [exwm-debug exwm-debug-log-time-function exwm--connection exwm-input--global-prefix-keys exwm-input--global-keys exwm--root xcb-debug:message "%s%s: \n" "" "exwm-input--update-global-prefix-keys" nil 0 memql apply exwm-input--grab-global-prefix-keys slot-value xcb:-+reply xcb:-+request-unchecked make-instance xcb:QueryTree :window children] 12 (#$ . 14912)]) #@20 (fn &rest XWINS) (defalias 'exwm-input--grab-global-prefix-keys #[128 "\203\306\307 \203 \202\310\311#\210\312\313\314\315\316\317\320\317\321\317\322\n\323\n& \317\211\211 \211\203\334\211@\324\f\"\262\204C\325\326\327\330!!\"\210\202\325\331\f@@\"\262\203g\306\332 \203[ \202\\\310\311\333!  &\210\211\203\324\211@\334\335A#\266\334\336 #\266 \315U\204\231\337A \"\315U\203\231\340A \"\262\211\203\314\211@ \334\341#\266\342\f \"\210\203\305 \334\335\n#\266\342\f \"\210A\266\202\202\233\210A\266\202\202h\210A\266\202\202'\210\343\f!\207" [exwm-debug exwm-debug-log-time-function xcb:GrabMode:Async exwm-input--global-prefix-keys exwm--connection xcb:keysyms:num-lock-mask xcb-debug:message "%s%s: \n" "" "exwm-input--grab-global-prefix-keys" make-instance xcb:GrabKey :owner-events 0 :grab-window nil :modifiers :key :pointer-mode :keyboard-mode xcb:keysyms:event->keysyms warn "Key unavailable: %s" key-description vector xcb:keysyms:keysym->keycode "%s%s: Grabbing key=%s (keysyms=%s keycode=%s)\n" single-key-description eieio-oset modifiers key logand logior grab-window xcb:-+request xcb:flush] 16 (#$ . 15597)]) #@20 (fn KEY COMMAND) (defalias 'exwm-input--set-key #[514 "\203\303\304 \203 \202\305\306%\210\307\"\210\310\n\"\203&\n\202+\211\nB\211\207" [exwm-debug exwm-debug-log-time-function exwm-input--global-keys xcb-debug:message "%s%s: key: %s, command: %s\n" "" "exwm-input--set-key" global-set-key memql] 8 (#$ . 16793)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable exwm-input-global-keys funcall function #[0 "\300\207" [nil] 1] "Global keys.\n\nIt is an alist of the form (key . command), meaning giving KEY (a key\nsequence) a global binding as COMMAND.\n\nNotes:\n* Setting the value directly (rather than customizing it) after EXWM\n finishes initialization has no effect." :type (alist :key-type key-sequence :value-type function) :set #[514 "\302!\203J\211\203\211@\303@!\210A\266\202\202\210L\210\304\211\211\2036\211@\305@A\"\210A\266\202\202\"\210 \205=\306 \207" [exwm-input--global-keys exwm--connection boundp global-unset-key nil exwm-input--set-key exwm-input--update-global-prefix-keys] 7 "\n\n(fn SYMBOL VALUE)"]] 8) #@343 Set a global key binding. The new key binding only takes effect in real time when this command is called interactively, and is lost when this session ends unless it's specifically saved in the Customize interface for `exwm-input-global-keys'. In configuration you should customize or set `exwm-input-global-keys' instead. (fn KEY COMMAND) (defalias 'exwm-input-set-key #[514 "\203\303\304 \203 \202\305\306#\210\307\nBC\"\310\"\210\311\312!\205(\313 \207" [exwm-debug exwm-debug-log-time-function exwm-input-global-keys xcb-debug:message "%s%s: \n" "" "exwm-input-set-key" append exwm-input--set-key called-interactively-p any exwm-input--update-global-prefix-keys] 6 (#$ . 17909) "KSet key globally: \nCSet key %s to command: "]) (byte-code "\302W\204\302U\203 \303W\203\304\305\306\"\210\202\304\305\307\"\210\302\207" [emacs-major-version emacs-minor-version 26 2 defalias exwm-input--unread-event #[257 "\301C\"\211\207" [unread-command-events append] 4 "\n\n(fn EVENT)"] #[257 "\301\302BC\"\211\207" [unread-command-events append t] 5 "\n\n(fn EVENT)"]] 3) #@67 Process EVENT as if it were returned by `read-event'. (fn EVENT) (defalias 'exwm-input--mimic-read-event #[257 "\203\304\305 \203 \202\306\307#\210\n\310=\204#\311\312\313\n!\"!\262\314!\2038 \2050 H\211\2037\211\262\210\207" [exwm-debug exwm-debug-log-time-function extra-keyboard-modifiers keyboard-translate-table xcb-debug:message "%s%s: \n" "" "exwm-input--mimic-read-event" 0 event-convert-list append event-modifiers characterp] 5 (#$ . 19010)]) #@12 (fn KEY) (defalias 'exwm-input--translate #[257 "\3032;\304 \nE\211\2037\211@\305\"\262\306!\203%\307\303\304!\"\210\2020\310!\2030\307\303\"\210A\266\202\202 \266\2110\207" [input-decode-map local-function-key-map key-translation-map --cl-block-exwm-input--translate-- nil lookup-key functionp throw vectorp] 8 (#$ . 19487)]) #@51 Cache EVENT. (fn EVENT &optional TEMP-LINE-MODE) (defalias 'exwm-input--cache-event #[513 "\203\304\305 \203 \202\306\307$\210\310\n\311!\"\312\n!\211\2034\313\314\n!!\2034\211\205>\315\316 \207\317 \205>\317\320 \207" [exwm-debug exwm-debug-log-time-function exwm-input--line-mode-cache exwm-input--temp-line-mode xcb-debug:message "%s%s: %s\n" "" "exwm-input--cache-event" vconcat vector exwm-input--translate keymapp key-binding t exwm-input--grab-keyboard nil exwm-input--release-keyboard] 8 (#$ . 19838)]) #@100 Whether EVENT should be passed to Emacs. Current buffer must be an `exwm-mode' buffer. (fn EVENT) (defalias 'exwm-input--event-passthrough-p #[257 "\206< \206<\n\206<\306 \307 =\206<\211 >\206<\211\f>\206< \203-\310 \311!\"\206<\310\312 \311!\"\206<\313\f\"\207" [exwm-input-line-mode-passthrough exwm-input--during-command exwm-input--line-mode-cache exwm-input--global-prefix-keys exwm-input-prefix-keys overriding-terminal-local-map active-minibuffer-window selected-window lookup-key vector current-local-map gethash exwm-input--simulation-keys] 5 (#$ . 20376)]) #@41 A placeholder command. (fn &rest ARGS) (defalias 'exwm-input--noop #[128 "\300\207" [nil] 2 (#$ . 20964) nil]) #@100 Parse X KeyPress event to Emacs key event and then feed the command loop. (fn KEY-PRESS RAW-DATA) (defalias 'exwm-input--on-KeyPress-line-mode #[514 "\306\307\310\"\307\311\"#\312\211\211 \203$\313\314\n\203\n \202\315\316$\210@\317U\204b\320@\321\307 \311\"\322 A!\"#\211\262\203b\323!\211\262\203b\324!\203b \262\325!\210\326\f\327BC\"\210\211\204\277\321\307\311\"\330\"\317U\203y \262\202\222 \262\331\332\333\334\317\335\307\336\"\337+\340& \"\210,\203\260\203\277\341\342\327\343BD!\210\326\f\327BC\"\210\202\277\203\277\343-\344\345!\210\344\346!\210\331\332\347\350\351.%\"\210\352!\266\204\207" [exwm--connection exwm-debug exwm-debug-log-time-function xcb:Allow:AsyncKeyboard unread-command-events xcb:Allow:ReplayKeyboard xcb:keysyms:keycode->keysym slot-value detail state nil xcb-debug:message "%s%s: %s\n" "" "exwm-input--on-KeyPress-line-mode" 0 xcb:keysyms:keysym->event logand lognot exwm-input--mimic-read-event exwm-input--event-passthrough-p exwm-input--cache-event append t 24576 xcb:-+request make-instance xcb:SendEvent :propagate :destination event :event-mask :event set-transient-map keymap exwm-input--noop run-hooks pre-command-hook post-command-hook xcb:AllowEvents :mode :time xcb:flush xcb:EventMask:NoEvent defining-kbd-macro last-command xcb:Time:CurrentTime] 19 (#$ . 21083)]) #@72 Handle KeyPress event in char-mode. (fn KEY-PRESS &optional RAW-DATA) (defalias 'exwm-input--on-KeyPress-char-mode #[513 "\306\307\310\"\307\311\"#\312\211 \203#\313\314\n\203\n \202\315\316$\210@\317U\204l\320@\321\307\311\"\322A!\"#\211\262\203l\323!\211\262\203l\324\325!\204]\211\326 \327BC\"\210\202l\330\327\"\210\211\326 \327BC\"\210\266\331\332\333\334\f\335 %\"\210\336!\207" [exwm--connection exwm-debug exwm-debug-log-time-function unread-command-events xcb:Allow:AsyncKeyboard xcb:Time:CurrentTime xcb:keysyms:keycode->keysym slot-value detail state nil xcb-debug:message "%s%s: %s\n" "" "exwm-input--on-KeyPress-char-mode" 0 xcb:keysyms:keysym->event logand lognot exwm-input--mimic-read-event derived-mode-p exwm-mode append t exwm-input--cache-event xcb:-+request make-instance xcb:AllowEvents :mode :time xcb:flush] 13 (#$ . 22458)]) #@260 Handle button events in line mode. BUFFER is the `exwm-mode' buffer the event was generated on. BUTTON-EVENT is the X event converted into an Emacs event. The return value is used as event_mode to release the original button event. (fn BUFFER BUTTON-EVENT) (defalias 'exwm-input--on-ButtonPress-line-mode #[514 "rq\210\305!\203\306\307 \203 \202\310\311$\210\211\2037\312!\2037\313!\210\314\n\315BC\"\210 \2028\f\262)\207" [exwm-debug exwm-debug-log-time-function unread-command-events xcb:Allow:SyncPointer xcb:Allow:ReplayPointer exwm-input--mimic-read-event xcb-debug:message "%s%s: %s\n" "" "exwm-input--on-ButtonPress-line-mode" exwm-input--event-passthrough-p exwm-input--cache-event append t] 8 (#$ . 23350)]) #@113 Handle button events in char-mode. The return value is used as event_mode to release the original button event. (defalias 'exwm-input--on-ButtonPress-char-mode #[0 "\203\303\304 \203 \202\305\306#\210\n\207" [exwm-debug exwm-debug-log-time-function xcb:Allow:ReplayPointer xcb-debug:message "%s%s: \n" "" "exwm-input--on-ButtonPress-char-mode"] 4 (#$ . 24096)]) #@68 Update the propertized `mode-line-process' for window ID. (fn ID) (defalias 'exwm-input--update-mode-line #[257 "\203\305\306 \203 \202\307\310$\210\311\211\211r\312\n\"A\262q\210\313 \314\"\203C\315\262\316\262\317\320\321\322\323!\324\"\325\311\211&\262\202a\313 \326\"\203a\327\262\330\262\317\320\321\322\323!\331\"\325\311\211&\262\332\333\334\335\336\337\340\341\340\342 BED\257D\343 )\207" [exwm-debug exwm-debug-log-time-function exwm--id-buffer-alist exwm--input-mode mode-line-process xcb-debug:message "%s%s: #x%x\n" "" "exwm-input--update-mode-line" nil assoc eql line-mode "line" "mouse-1: Switch to char-mode" make-byte-code 0 "\301\300!\207" vconcat vector [exwm-input-release-keyboard] 2 char-mode "char" "mouse-1: Switch to line-mode" [exwm-input-grab-keyboard] ": " :propertize help-echo mouse-face mode-line-highlight local-map keymap mode-line down-mouse-1 force-mode-line-update] 17 (#$ . 24472)]) #@54 Grab all key events on window ID. (fn &optional ID) (defalias 'exwm-input--grab-keyboard #[256 "\211\204\306 \307\"@\262\262\211\205p \203'\310\311\n\203\"\n \202#\312\313$\210\314 \315 \316\317\320\321\322 \323\f\324 \325\326& \"\"\203W \203W\310\327\n\203R\n \202S\312\313$\210\211\330\"A\262\211\205nr\211q\210\331\332\333!)\262\207" [exwm--id-buffer-alist exwm-debug exwm-debug-log-time-function exwm--connection xcb:ModMask:Any xcb:Grab:Any window-buffer rassoc xcb-debug:message "%s%s: id=#x%x\n" "" "exwm-input--grab-keyboard" xcb:-request-check xcb:-+request-checked make-instance xcb:GrabKey :owner-events 0 :grab-window :modifiers :key :pointer-mode :keyboard-mode "%s%s: Failed to grab keyboard for #x%x\n" assoc line-mode run-hooks exwm-input-input-mode-change-hook xcb:GrabMode:Async xcb:GrabMode:Sync exwm--input-mode] 19 (#$ . 25431)]) #@56 Ungrab all key events on window ID. (fn &optional ID) (defalias 'exwm-input--release-keyboard #[256 "\211\204\306 \307\"@\262\262\211\205l \203'\310\311\n\203\"\n \202#\312\313$\210\314 \315 \316\317\320\f\321 \322 &\"\"\203O \203O\310\323\n\203J\n \202K\312\313$\210\324!\210\211\325\"A\262\211\205jr\211q\210\326\327\330!)\262\207" [exwm--id-buffer-alist exwm-debug exwm-debug-log-time-function exwm--connection xcb:Grab:Any xcb:ModMask:Any window-buffer rassoc xcb-debug:message "%s%s: id=#x%x\n" "" "exwm-input--release-keyboard" xcb:-request-check xcb:-+request-checked make-instance xcb:UngrabKey :key :grab-window :modifiers "%s%s: Failed to release keyboard for #x%x\n" exwm-input--grab-global-prefix-keys assoc char-mode run-hooks exwm-input-input-mode-change-hook exwm--input-mode] 13 (#$ . 26317)]) #@41 Switch to line-mode. (fn &optional ID) (defalias 'exwm-input-grab-keyboard #[256 "\211\205!\203\303\304 \203 \202\305\306$\210\307\310!\210\311!\207" [exwm-debug exwm-debug-log-time-function exwm--selected-input-mode xcb-debug:message "%s%s: id=#x%x\n" "" "exwm-input-grab-keyboard" line-mode exwm-input--grab-keyboard exwm-input--update-mode-line] 6 (#$ . 27160) (byte-code "\301\302!\205\303 \304\"@\262C\207" [exwm--id-buffer-alist derived-mode-p exwm-mode window-buffer rassoc] 4)]) #@41 Switch to char-mode. (fn &optional ID) (defalias 'exwm-input-release-keyboard #[256 "\211\205!\203\303\304 \203 \202\305\306$\210\307\310!\210\311!\207" [exwm-debug exwm-debug-log-time-function exwm--selected-input-mode xcb-debug:message "%s%s: id=#x%x\n" "" "exwm-input-release-keyboard" char-mode exwm-input--release-keyboard exwm-input--update-mode-line] 6 (#$ . 27672) (byte-code "\301\302!\205\303 \304\"@\262C\207" [exwm--id-buffer-alist derived-mode-p exwm-mode window-buffer rassoc] 4)]) #@64 Toggle between 'line-mode' and 'char-mode'. (fn &optional ID) (defalias 'exwm-input-toggle-keyboard #[256 "\211\205:\203\304\305 \203 \202\306\307$\210r\211\310\n\"A\262q\210\311 \312\"\2030\313!\2029\311 \314\"\2059\315 )\207" [exwm-debug exwm-debug-log-time-function exwm--id-buffer-alist exwm--input-mode xcb-debug:message "%s%s: id=#x%x\n" "" "exwm-input-toggle-keyboard" assoc eql line-mode exwm-input-release-keyboard char-mode exwm-reset] 6 (#$ . 28193) (byte-code "\301\302!\205\303 \304\"@\262C\207" [exwm--id-buffer-alist derived-mode-p exwm-mode window-buffer rassoc] 4)]) #@63 Fake a key event equivalent to Emacs event EVENT. (fn EVENT) (defalias 'exwm-input--fake-key #[257 "\306\"\307\211@@\310U\203\311\312\313!\"\210\314@@\"\262\310U\204\215\315\316 !\317 \"@\262\262\n\203J\320\321 \203@ \202A\322\323&\210\324\211\203\214\211@\325\326\327\330\310\331 \332\f\333\334\326 \335\336 \337)\333\340\310\341\310\342\310\343\310\344\310\345%@A\346\347&\"& \"\210A\266\202\202K\210\350!\207" [exwm--connection exwm--id-buffer-alist exwm-debug exwm-debug-log-time-function xcb:EventMask:NoEvent xcb:Time:CurrentTime xcb:keysyms:event->keysyms nil 0 user-error "[EXWM] Invalid key: %s" single-key-description xcb:keysyms:keysym->keycode window-buffer selected-window rassoc xcb-debug:message "%s%s: id=#x%x event=%s keycode\n" "" "exwm-input--fake-key" (xcb:KeyPress xcb:KeyRelease) xcb:-+request make-instance xcb:SendEvent :propagate :destination :event-mask :event xcb:marshal :detail :time :root :child :root-x :root-y :event-x :event-y :state :same-screen 1 xcb:flush exwm--root] 42 (#$ . 28805)]) #@214 Send next key to client window. EXWM will prompt for the key to send. This command can be prefixed to send multiple keys. If END-KEY is non-nil, stop sending keys if it's pressed. (fn TIMES &optional END-KEY) (defalias 'exwm-input-send-next-key #[513 "\3032\220\203\304\305 \203 \202\306\307#\210\310\311!\204\"\312\303\313\"\210\314V\203+\314\262\313\211\315\211W\205\213\211\316\3172h\320\321\322\323!T  \203V\324\323 C!P\202W\306%!\262<\204<\312\317\313\"\210\202<\210)\325\326!\"\262=\203\312\303\313\"\210\327!\266\211T\262\202/\266\202\266\2020\207" [exwm-debug exwm-debug-log-time-function exwm-input-line-mode-passthrough --cl-block-exwm-input-send-next-key-- xcb-debug:message "%s%s: \n" "" "exwm-input-send-next-key" derived-mode-p exwm-mode throw nil 12 0 t break read-key format "Send key: %s (%d/%d) %s" key-description "To exit, press: " vconcat vector exwm-input--fake-key] 16 (#$ . 29875) "p"]) #@65 Set simulation keys. (fn SIMULATION-KEYS &optional NO-REFRESH) (defalias 'exwm-input--set-simulation-keys #[513 "\203\303\304 \203 \202\305\306$\210\211\204-\307\302p\"\310!\203'\311\312\"\210\210\313\314\315\"\211\203a\211@\316@!A\317!\203G\320\321\"\202I\211C\262\322\n#\210\322\323H\324\n#\266A\266\202\202.\210\311\325\n\"\207" [exwm-debug exwm-debug-log-time-function exwm-input--simulation-keys xcb-debug:message "%s%s: %s\n" "" "exwm-input--set-simulation-keys" buffer-local-value hash-table-p maphash #[514 "\302!\205\203\303!\207\304 \305#\207" [exwm-input--local-simulation-keys exwm-mode-map sequencep local-unset-key define-key nil] 6 "\n\n(fn KEY VALUE)"] make-hash-table :test equal vconcat sequencep append nil puthash 0 t #[514 "\302!\205\203\303\304\"\207\305 \304#\207" [exwm-input--local-simulation-keys exwm-mode-map sequencep local-set-key exwm-input-send-simulation-key define-key] 6 "\n\n(fn KEY VALUE)"]] 10 (#$ . 30839)]) #@85 Please customize or set `exwm-input-simulation-keys' instead. (fn SIMULATION-KEYS) (defalias 'exwm-input-set-simulation-keys #[257 "\300!\207" [exwm-input--set-simulation-keys] 3 (#$ . 31838)]) (byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\210\304\316\306\307\317DD\320\312\321%\207" [make-obsolete exwm-input-set-simulation-keys nil "26" custom-declare-variable exwm-input-simulation-keys funcall function #[0 "\300\207" [nil] 1] "Simulation keys.\n\nIt is an alist of the form (original-key . simulated-key), where both\noriginal-key and simulated-key are key sequences. Original-key is what you\ntype to an X window in line-mode which then gets translated to simulated-key\nby EXWM and forwarded to the X window.\n\nNotes:\n* Setting the value directly (rather than customizing it) after EXWM\n finishes initialization has no effect.\n* Original-keys consist of multiple key events are only supported in Emacs\n 26.2 and later.\n* A minority of applications do not accept simulated keys by default. It's\n required to customize them to accept events sent by SendEvent.\n* The predefined examples in the Customize interface are not guaranteed to\n work for all applications. This can be tweaked on a per application basis\n with `exwm-input-set-local-simulation-keys'." :type (alist :key-type (key-sequence :tag "Original") :value-type (choice (key-sequence :tag "User-defined") (key-sequence :tag "Move left" [left]) (key-sequence :tag "Move right" [right]) (key-sequence :tag "Move up" [up]) (key-sequence :tag "Move down" [down]) (key-sequence :tag "Move to BOL" [home]) (key-sequence :tag "Move to EOL" [end]) (key-sequence :tag "Page up" [prior]) (key-sequence :tag "Page down" [next]) (key-sequence :tag "Copy" [C-c]) (key-sequence :tag "Paste" [C-v]) (key-sequence :tag "Delete" [delete]) (key-sequence :tag "Delete to EOL" [S-end delete]))) :set #[514 "L\210\300!\207" [exwm-input--set-simulation-keys] 4 "\n\n(fn SYMBOL VALUE)"] exwm-input-pre-post-command-blacklist #[0 "\300\207" [(exit-minibuffer abort-recursive-edit minibuffer-keyboard-quit)] 1] "Commands impossible to detect with `post-command-hook'." (repeat function)] 8) #@24 (fn PROMPT STOP-KEY) (defalias 'exwm-input--read-keys #[514 "\301\302\211\211=\204)\303\304\305\306\307 !!\306!$!\262\310\307!\"\262\202G\311V\2054\312\313O)\207" [cursor-in-echo-area t nil read-key format "%s (terminate with %s): %s" key-description vector vconcat 1 0 -1] 12 (#$ . 34031)]) #@230 Set a simulation key. The simulation key takes effect in real time, but is lost when this session ends unless it's specifically saved in the Customize interface for `exwm-input-simulation-keys'. (fn ORIGINAL-KEY SIMULATED-KEY) (defalias 'exwm-input-set-simulation-key #[514 "\203\303\304 \203 \202\305\306%\210\205,\211\205,BC\307\n\"\310\311\"\262\207" [exwm-debug exwm-debug-log-time-function exwm-input-simulation-keys xcb-debug:message "%s%s: original: %s, simulated: %s\n" "" "exwm-input-set-simulation-key" append exwm-input--set-simulation-keys t] 8 (#$ . 34350) (byte-code "\300\211\301\302\303\"\262\203\301\304\305\306!\"\303\"\262D\207" [nil exwm-input--read-keys "Translate from" 7 format "Translate from %s to" key-description] 7)]) #@49 Clear simulation keys and key bindings defined. (defalias 'exwm-input--unset-simulation-keys #[0 "\203\303\304 \203 \202\305\306#\210\307\n!\205!\310\311\n\"\210\312\n!\207" [exwm-debug exwm-debug-log-time-function exwm-input--simulation-keys xcb-debug:message "%s%s: \n" "" "exwm-input--unset-simulation-keys" hash-table-p maphash #[514 "\301!\205 \302\303#\207" [exwm-mode-map sequencep define-key nil] 6 "\n\n(fn KEY VALUE)"] clrhash] 4 (#$ . 35131)]) #@191 Set buffer-local simulation keys. SIMULATION-KEYS is an alist of the form (original-key . simulated-key), where both ORIGINAL-KEY and SIMULATED-KEY are key sequences. (fn SIMULATION-KEYS) (defalias 'exwm-input-set-local-simulation-keys #[257 "\203\304\305 \203 \202\306\307#\210\310\311!\210\312\313\n!!\210\314\315!)\207" [exwm-debug exwm-debug-log-time-function exwm-mode-map exwm-input--local-simulation-keys xcb-debug:message "%s%s: \n" "" "exwm-input-set-local-simulation-keys" make-local-variable exwm-input--simulation-keys use-local-map copy-keymap t exwm-input--set-simulation-keys] 5 (#$ . 35606)]) #@72 Fake a key event according to the last input key sequence. (fn TIMES) (defalias 'exwm-input-send-simulation-key #[257 "\3032P\203\304\305 \203 \202\306\307#\210\310\311!\204\"\312\303\313\"\210\314\315 \n\"\316\211W\205K\211\211\203B\211@\317!\210A\266\202\2021\266\211T\262\202)\266\202\2620\207" [exwm-debug exwm-debug-log-time-function exwm-input--simulation-keys --cl-block-exwm-input-send-simulation-key-- xcb-debug:message "%s%s: \n" "" "exwm-input-send-simulation-key" derived-mode-p exwm-mode throw nil gethash this-single-command-keys 0 exwm-input--fake-key] 9 (#$ . 36233) "p"]) #@136 Make a command that invokes KEYS when called. One use is to access the keymap bound to KEYS (as prefix keys) in char-mode. (fn KEYS) (defalias 'exwm-input-invoke-factory '(macro . #[257 "\300!\301!\302\303\304P!\305\306\307\"\310\311\312\313\314\n!DE\257\207" [kbd key-description defun intern "exwm-input--invoke--" nil format "Invoke `%s'." (interactive) mapc (lambda (key) (exwm-input--cache-event key t) (exwm-input--unread-event key)) quote listify-key-sequence] 13 (#$ . 36852)])) #@28 Run in `pre-command-hook'. (defalias 'exwm-input--on-pre-command #[0 "\303=\206  >?\205\304\211\207" [this-command exwm-input-pre-post-command-blacklist exwm-input--during-command exwm-input--noop t] 2 (#$ . 37353)]) #@29 Run in `post-command-hook'. (defalias 'exwm-input--on-post-command #[0 "\302=?\205\n\303\211\207" [this-command exwm-input--during-command exwm-input--noop nil] 2 (#$ . 37582)]) #@63 Run in `minibuffer-setup-hook' to grab keyboard if necessary. (defalias 'exwm-input--on-minibuffer-setup #[0 "\203\305\306 \203 \202\307\310#\210r\311\312\n!!q\210\313\314!\2050\315 ?\2050 \316=\2050\317\f!)\207" [exwm-debug exwm-debug-log-time-function exwm-workspace--current exwm--selected-input-mode exwm--id xcb-debug:message "%s%s: \n" "" "exwm-input--on-minibuffer-setup" window-buffer frame-selected-window derived-mode-p exwm-mode exwm-workspace--client-p char-mode exwm-input--grab-keyboard] 4 (#$ . 37769)]) #@65 Run in `minibuffer-exit-hook' to release keyboard if necessary. (defalias 'exwm-input--on-minibuffer-exit #[0 "\203\306\307 \203 \202\310\311#\210r\312\313\n!!q\210\314\315!\2056\316 ?\2056 \317=\2056\f\320=\2056\321 !)\207" [exwm-debug exwm-debug-log-time-function exwm-workspace--current exwm--selected-input-mode exwm--input-mode exwm--id xcb-debug:message "%s%s: \n" "" "exwm-input--on-minibuffer-exit" window-buffer frame-selected-window derived-mode-p exwm-mode exwm-workspace--client-p char-mode line-mode exwm-input--release-keyboard] 4 (#$ . 38305)]) #@61 Run when new message arrives to grab keyboard if necessary. (defalias 'exwm-input--on-echo-area-dirty #[0 "\203\303\304 \203 \202\305\306#\210\307 ?\205%\310 ?\205%\n\205%\311 \207" [exwm-debug exwm-debug-log-time-function cursor-in-echo-area xcb-debug:message "%s%s: \n" "" "exwm-input--on-echo-area-dirty" active-minibuffer-window exwm-workspace--client-p exwm-input--on-minibuffer-setup] 4 (#$ . 38883)]) #@65 Run in `echo-area-clear-hook' to release keyboard if necessary. (defalias 'exwm-input--on-echo-area-clear #[0 "\203\302\303 \203 \202\304\305#\210\306 ?\205\307 \207" [exwm-debug exwm-debug-log-time-function xcb-debug:message "%s%s: \n" "" "exwm-input--on-echo-area-clear" current-message exwm-input--on-minibuffer-exit] 4 (#$ . 39308)]) #@33 Initialize the keyboard module. (defalias 'exwm-input--init #[0 "\203\306\307 \203 \202\310\311#\210\312\n\313\"\210\314\n!\315\n\316\317\320\321\322 \323\f\324\325\326\325\327\330\331\330\332\321\333 \334\321\335@\336A&\"\210\315\n\316\337\340 \341\342%\"\210\343\344!BC\211\203d\211@\345@A\"\210A\266\202\202P\210D\203o\346D!\210\347\n\350\351#\210\347\n\352\353#\210\347\n\354\355#\210\347\n\356\357#\210\347\n\360\361#\210\347\n\362\363#\210E\203\236\347\n\364\365#\210\366\367\370\"\210\366\371\372\"\210\366\373\374\"\210\366\375\376\"\210\377\321\201G\201H#F\366\201I\201J\"\210\366\201K\201L\"\207" [exwm-debug exwm-debug-log-time-function exwm--connection exwm-input--timestamp-window exwm--root xcb:WindowClass:CopyFromParent xcb-debug:message "%s%s: \n" "" "exwm-input--init" xcb:keysyms:init exwm-input--on-keysyms-update xcb:generate-id xcb:-+request make-instance xcb:CreateWindow :depth 0 :wid :parent :x -1 :y :width 1 :height :border-width :class :visual :value-mask :event-mask xcb:ewmh:set-_NET_WM_NAME :window :data "EXWM: exwm-input--timestamp-window" exwm--intern-atom "_TIME" exwm-input--set-key exwm-input--set-simulation-keys xcb:+event xcb:PropertyNotify exwm-input--on-PropertyNotify xcb:CreateNotify exwm-input--on-CreateNotify xcb:KeyPress exwm-input--on-KeyPress xcb:ButtonPress exwm-input--on-ButtonPress xcb:ButtonRelease exwm-floating--stop-moveresize xcb:MotionNotify exwm-floating--do-moveresize xcb:EnterNotify exwm-input--on-EnterNotify add-hook pre-command-hook exwm-input--on-pre-command post-command-hook exwm-input--on-post-command minibuffer-setup-hook exwm-input--on-minibuffer-setup minibuffer-exit-hook exwm-input--on-minibuffer-exit run-with-idle-timer xcb:CW:EventMask xcb:EventMask:PropertyChange exwm-input--timestamp-atom exwm-input-global-keys exwm-input-simulation-keys mouse-autoselect-window exwm-input--echo-area-timer t exwm-input--on-echo-area-dirty echo-area-clear-hook exwm-input--on-echo-area-clear buffer-list-update-hook exwm-input--on-buffer-list-update] 28 (#$ . 39662)]) #@61 The second stage in the initialization of the input module. (defalias 'exwm-input--post-init #[0 "\203\302\303 \203 \202\304\305#\210\306 \207" [exwm-debug exwm-debug-log-time-function xcb-debug:message "%s%s: \n" "" "exwm-input--post-init" exwm-input--update-global-prefix-keys] 4 (#$ . 41735)]) #@24 Exit the input module. (defalias 'exwm-input--exit #[0 "\203\306\307 \203 \202\310\311#\210\312 \210\313\314\315\"\210\313\316\317\"\210\313\320\321\"\210\313\322\323\"\210\n\2034\324\n!\210\325\313\326\327\"\210\313\330\331\"\210 \203F\324 !\210\f\203N\324\f!\210\332 \333\334\335!\336\"\337#&\"\210\340 !\207" [exwm-debug exwm-debug-log-time-function exwm-input--echo-area-timer exwm-input--update-focus-defer-timer exwm-input--update-focus-timer exwm--connection xcb-debug:message "%s%s: \n" "" "exwm-input--exit" exwm-input--unset-simulation-keys remove-hook pre-command-hook exwm-input--on-pre-command post-command-hook exwm-input--on-post-command minibuffer-setup-hook exwm-input--on-minibuffer-setup minibuffer-exit-hook exwm-input--on-minibuffer-exit cancel-timer nil echo-area-clear-hook exwm-input--on-echo-area-clear buffer-list-update-hook exwm-input--on-buffer-list-update xcb:-+request make-instance xcb:SetInputFocus :revert-to :focus :time xcb:flush xcb:InputFocus:PointerRoot exwm--root xcb:Time:CurrentTime] 10 (#$ . 42046)]) (provide 'exwm-input)