;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\300\303!\210\300\304!\207" [require xcb-keysyms xcb-xim exwm-core exwm-input] 2) #@44 All supported locales (stolen from glibc). (defconst exwm-xim--locales "@locale=aa,af,ak,am,an,anp,ar,as,ast,ayc,az,be,bem,ber,bg,bhb,bho,bn,bo,br,brx,bs,byn,ca,ce,cmn,crh,cs,csb,cv,cy,da,de,doi,dv,dz,el,en,es,et,eu,fa,ff,fi,fil,fo,fr,fur,fy,ga,gd,gez,gl,gu,gv,ha,hak,he,hi,hne,hr,hsb,ht,hu,hy,ia,id,ig,ik,is,it,iu,iw,ja,ka,kk,kl,km,kn,ko,kok,ks,ku,kw,ky,lb,lg,li,li,lij,lo,lt,lv,lzh,mag,mai,mg,mhr,mi,mk,ml,mn,mni,mr,ms,mt,my,nan,nb,nds,ne,nhn,niu,nl,nn,nr,nso,oc,om,or,os,pa,pa,pap,pl,ps,pt,quz,raj,ro,ru,rw,sa,sat,sc,sd,se,shs,si,sid,sk,sl,so,sq,sr,ss,st,sv,sw,szl,ta,tcy,te,tg,th,the,ti,tig,tk,tl,tn,tr,ts,tt,ug,uk,unm,ur,uz,ve,vi,wa,wae,wal,wo,xh,yi,yo,yue,zh,zu,C,no" (#$ . 528)) #@36 Default error returned to clients. (defconst exwm-xim--default-error (make-instance 'xim:error :im-id 0 :ic-id 0 :flag xim:error-flag:invalid-both :error-code xim:error-code:bad-something :length 0 :type 0 :detail nil) (#$ . 1220)) #@39 Default IM attrs returned to clients. (defconst exwm-xim--default-im-attrs (byte-code "\302\303\304\305\306\307 G\310 & C\207" [xim:ATTRIBUTE-VALUE-TYPE:xim-styles xlib:XNQueryInputStyle make-instance xim:XIMATTR :id 0 :type :length :attribute] 10) (#$ . 1458)) #@39 Default IC attrs returned to clients. (defconst exwm-xim--default-ic-attrs (byte-code "\305\306\307\310\311\312 G\313 & \305\306\307\314\311\n\312 G\313 & \305\306\307\315\311\n\312\fG\313\f& E\207" [xim:ATTRIBUTE-VALUE-TYPE:long-data xlib:XNInputStyle xim:ATTRIBUTE-VALUE-TYPE:window xlib:XNClientWindow xlib:XNFocusWindow make-instance xim:XICATTR :id 0 :type :length :attribute 1 2] 12) (#$ . 1727)) #@76 Default styles: root-window, i.e. no preediting or status display support. (defconst exwm-xim--default-styles (byte-code "\302\303\304\305\306\307 \"C%\207" [xlib:XIMPreeditNothing xlib:XIMStatusNothing make-instance xim:XIMStyles :number nil :styles logior] 8) (#$ . 2137)) #@47 Default IM/IC attributes returned to clients. (defconst exwm-xim--default-attributes (byte-code "\301\302\303\304\305\306\307&C\207" [exwm-xim--default-styles make-instance xim:XIMATTRIBUTE :id 0 :length nil :value] 8) (#$ . 2419)) #@56 The X connection for initiating other XIM connections. (defvar exwm-xim--conn nil (#$ . 2659)) #@46 X window for initiating new XIM connections. (defvar exwm-xim--event-xwin nil (#$ . 2760)) #@75 Plist mapping server window to [X connection, client window, byte-order]. (defvar exwm-xim--server-client-plist '(nil nil) (#$ . 2857)) #@47 Plist mapping client window to server window. (defvar exwm-xim--client-server-plist '(nil nil) (#$ . 2999)) #@40 For generating a unique property name. (defvar exwm-xim--property-index 0 (#$ . 3113)) #@13 Last IM ID. (defvar exwm-xim--im-id 0 (#$ . 3206)) #@13 Last IC ID. (defvar exwm-xim--ic-id 0 (#$ . 3263)) (defvar exwm-xim--@server nil) (defvar exwm-xim--LOCALES nil) (defvar exwm-xim--TRANSPORT nil) (defvar exwm-xim--XIM_SERVERS nil) (defvar exwm-xim--_XIM_PROTOCOL nil) (defvar exwm-xim--_XIM_XCONNECT nil) #@144 Handle SelectionRequest events on IMS window. Such events would be received when clients query for LOCALES or TRANSPORT. (fn DATA SYNTHETIC) (defalias 'exwm-xim--on-SelectionRequest #[514 "\203\306\307 \203 \202\310\311#\210\312\313!\314\211\315\"\210\316\317\"\nU\203, \2026\316\317\"\fU\2056\320\262\205\241\321 \312\322\323,\324\316\325\"\326\316\n\327\"\330\316\f\317\"\331\332\333G\334&\"\210\312\335\336\316\337\"\340\316\325\"\341\316\342\"\343\316\n\317\"\326\316\f\327\"& \262\321 \312\344\345\346\347\316\325\"\350-\351\352 \"& \"\210\353 !\262\207" [exwm-debug exwm-debug-log-time-function exwm-xim--LOCALES exwm-xim--locales exwm-xim--TRANSPORT exwm-xim--conn xcb-debug:message "%s%s: \n" "" "exwm-xim--on-SelectionRequest" make-instance xcb:SelectionRequest nil xcb:unmarshal slot-value target "@transport=X/" xcb:-+request xcb:ChangeProperty :mode :window requestor :property property :type :format 8 :data-len :data xcb:SelectionNotify :time time :requestor :selection selection :target xcb:SendEvent :propagate 0 :destination :event-mask :event xcb:marshal xcb:flush xcb:PropMode:Replace xcb:EventMask:NoEvent] 24 (#$ . 3525)]) #@239 Handle ClientMessage event on IMS window (new connection). Such events would be received when clients request for _XIM_XCONNECT. A new X connection and server window would be created to communicate with this client. (fn DATA SYNTHETIC) (defalias 'exwm-xim--on-ClientMessage-0 #[514 "\3062\203\307\310 \203 \202\311\312#\210\313\314!\315\211\211\316\"\210\317\320\"\nU\204I\203D\307\321 \203< \202=\311\312\317\320\"$\210\322\306\315\"\210\317\211\323\"\324\"\325\234\262\326 \262\327!\262\330\317\331\"\315\"\210\332 \333\334\335BB\"#\210\332\f#\210\336 \313\337\340\341>\342?&\"\210\343 !\210\344\314\345#\210\336\313\346\347\325\350\351@\352\325\353\325\354\355\356\355\357\325\360A\361\325\341B\362\355&\"\210\343!\210\211\363\364#\266\317\323\"\363\324\365B#\266\366\317\323\"\367\"\210\366\317\323\"\370\"\210\336 \313\371\372\325\373 \342C\374\375 \"& \"\210\343 !\262\266\2040\207" [exwm-debug exwm-debug-log-time-function exwm-xim--_XIM_XCONNECT exwm-xim--server-client-plist exwm-xim--client-server-plist exwm-xim--conn --cl-block-exwm-xim--on-ClientMessage-0-- xcb-debug:message "%s%s: \n" "" "exwm-xim--on-ClientMessage-0" make-instance xcb:ClientMessage nil xcb:unmarshal slot-value type "%s%s: Ignore ClientMessage %s\n" throw data data32 0 xcb:connect xcb:generate-id set-process-query-on-exit-flag process plist-put apply vector (nil) xcb:-+request xcb:ChangeWindowAttributes :window :value-mask :event-mask xcb:flush xcb:+event exwm-xim--on-ClientMessage xcb:CreateWindow :depth :wid :parent :x :y :width 1 :height :border-width :class :visual :override-redirect eieio-oset window (0 0 0 0) slot-makeunbound data8 data16 xcb:SendEvent :propagate :destination :event xcb:marshal xcb:CW:EventMask xcb:EventMask:StructureNotify exwm--root xcb:WindowClass:InputOutput xcb:CW:OverrideRedirect xcb:EventMask:NoEvent] 35 (#$ . 4722)]) #@223 Handle ClientMessage event on IMS communication window (request). Such events would be received when clients request for _XIM_PROTOCOL. The actual XIM request is in client message data or a property. (fn DATA SYNTHETIC) (defalias 'exwm-xim--on-ClientMessage #[514 "\3052\313\203\306\307 \203 \202\310\311#\210\312\313!\314\211\211\315\"\210\316\317\"\nU\204I\203D\306\320 \203< \202=\310\311\316\317\"$\210\321\305\314\"\210\316\322\"\262\323 \"\262\324\234\262\325\234\262\316\326\"\327U\203y\330\331\316\211\332\"\333\"!$\202\306\316\326\"\334U\205\306\316\332\"\335\336\312\337\340\324\341 \342\316\f\343\"\324\234\344\f\345\325\346\316\343\"\325\234& \"\314#@\316\347\"G\325V\205\302\330\316\347\"$\262\262\262\266\2040\207" [exwm-debug exwm-debug-log-time-function exwm-xim--_XIM_PROTOCOL exwm-xim--server-client-plist xcb:GetPropertyType:Any --cl-block-exwm-xim--on-ClientMessage-- xcb-debug:message "%s%s: \n" "" "exwm-xim--on-ClientMessage" make-instance xcb:ClientMessage nil xcb:unmarshal slot-value type "%s%s: Ignore ClientMessage %s\n" throw window plist-get 1 0 format 8 exwm-xim--on-request vconcat data data8 32 xcb:-+reply xcb:-+request-unchecked xcb:GetProperty :delete :window :property data32 :type :long-offset :long-length value] 28 (#$ . 6639)]) #@64 Handle an XIM reuqest. (fn DATA CONN CLIENT-XWIN SERVER-XWIN) (defalias 'exwm-xim--on-request #[1028 "\203\306\307 \203 \202\310\311#\210\312\234\313\n\"\314\234\315\211\fU\203>\203\312\306\316 \2035 \2026\310\311 $\210\202\312 U\203\261\203W\306\317 \203S \202T\310\311#\210\320\234@U\313\n\"\211<\203r\211AA \240\210\202w\211\314 I\210\210\321\322!\262\323 \"\210\324\325\"\326U\203\250\324\327\"\312U\203\250\324\330\"\312U\203\250\321\331!B\262\202\312AB\262\202\312BCDEF>\203\335\203\324\306\332 \203\316 \202\317\310\311$\210AB\262\202\312FU\203@\203\367\306\333 \203\363 \202\364\310\311#\210\334\321\335!#\210\336\321\337\340 #\"\210\341!\210\n@=\203\nAA\202%\342\n\"\210G@=\2036GAAG\202\312\342G\"\210\202\312HU\203\220\203Z\306\343 \203V \202W\310\311#\210I\344W\203gIT\202h\326I\321\345\346I\347\315\350J\351\315\352K& \321\353\346I\354\312\355L\356M& D\262\202\312NU\203\304\203\252\306\357 \203\246 \202\247\310\311#\210\321\360!\262\323 \"\210\321\361\346\324\362\"#B\262\202\312OU\203\347\203\336\306\363 \203\332 \202\333\310\311#\210AB\262\202\312PU\2039\203\306\364 \203\375 \202\376\310\311#\210\321\365!\262\323 \"\210\366\367\370\371\324\372\"\"\373\374$\211\204 \375\262\321\376\346\324\362\"\377Q\201f&B\266\202\202\312RU\203|\203U\306\201g \203Q \202R\310\311#\210\321\201h!\262\323 \"\210\321\201i\346\324\362\"\201j\312\201k\315&B\262\202\312SU\203\266\203\230\306\201l \203\224 \202\225\310\311#\210\321\201m!\262\323 \"\210\321\201n\346\324\362\"#B\262\202\312TU\203E\203\322\306\201o \203\316 \202\317\310\311#\210\321\201p!\262\315\323\n\"\210\324\201q\"\262\201r\315\201s\201t$?\266\203\203(\321\201u\346\324\362\"\354\312\201vU\201wV\201j\312\201x\312\201y\315&B\262\202A\321\201z\346\324\362\"\201j\315\201{W&B\262\210\202\312XU\203\222\203a\306\201| \203] \202^\310\311#\210\321\201}!\262\323 \"\210Y\344W\203{YT\202|\326Y\321\201~\346\324\362\"\354Y%B\262\202\312ZU\203\324\203\256\306\201 \203\252 \202\253\310\311#\210\321\201\200!\262\323 \"\210\321\201\201\346\324\362\"\354\324\201\202\"%B\262\202\312[U\203\203\360\306\201\203 \203\354 \202\355\310\311#\210\321\201\204!\262\323 \"\210\321\201\205\346\324\362\"\354\324\201\202\"%B\262\202\312\\U\203b\2032\306\201\206 \203. \202/\310\311#\210\321\201\207!\262\323 \"\210\321\201\210\346\324\362\"\354\324\201\202\"\201j\315\201\211W& B\262\202\312]U\203\201\203\312\306\201\212 \203z \202{\310\311#\210\202\312^U\203\240\203\312\306\201\213 \203\231 \202\232\310\311#\210\202\312_U\203\327\203\274\306\201\214 \203\270 \202\271\310\311#\210\321\201\215!\262\323 \"\210\201\216   $\210\202\312`U\203\203\363\306\201\217 \203\357 \202\360\310\311#\210\321\201\220!\262\323 \"\210\321\201\221\346\324\362\"\354\324\201\202\"%B\262\202\312aU\2038\203\312\306\201\222 \2031 \2022\310\311#\210\202\312bU\203\203\203T\306\201\223 \203P \202Q\310\311#\210\321\201\224!\262\323 \"\210\321\201\225\346\324\362\"\354\324\201\202\"\201j\312\201\226\310& B\262\202\312cdeE>\203\257\203\246\306\201\227 \203\240 \202\241\310\311$\210AB\262\202\312\203\304\306\201\230 \203\300 \202\301\310\311#\210AB\262\211\205\371\201\231\201\232\201\233\201\234\201\235\201\236\f\f\"\201\237\"\201\240\201\241%\"\210\201\242!)\207" [exwm-debug exwm-debug-log-time-function exwm-xim--server-client-plist xim:lsb xim:opcode:error xim:opcode:connect xcb-debug:message "%s%s: \n" "" "exwm-xim--on-request" 0 plist-get 2 nil "%s%s: ERROR: %s\n" "%s%s: CONNECT\n" 4 make-instance xim:connect xcb:unmarshal slot-value major-version 1 minor-version number xim:connect-reply "%s%s: AUTH: %d\n" "%s%s: DISCONNECT\n" exwm-xim--make-request xim:disconnect-reply xcb:-+request xcb:DestroyWindow :window xcb:disconnect cl--do-remf "%s%s: OPEN\n" 65535 xim:open-reply :im-id :im-attrs-length :im-attrs :ic-attrs-length :ic-attrs xim:set-event-mask :ic-id :forward-event-mask :synchronous-event-mask "%s%s: CLOSE\n" xim:close xim:close-reply im-id "%s%s: TRIGGER-NOTIFY\n" "%s%s: ENCODING-NEGOTIATION\n" xim:encoding-negotiation cl-position "COMPOUND_TEXT" mapcar #[257 "\300\301\"\207" [slot-value name] 4 "\n\n(fn I)"] names :test equal -1 xim:encoding-negotiation-reply :category xim:connect-byte-order:lsb-first exwm-xim--default-error xim:opcode:auth-required xim:opcode:auth-reply xim:opcode:auth-next xim:opcode:auth-ng xim:opcode:disconnect exwm-xim--client-server-plist xim:opcode:open exwm-xim--im-id exwm-xim--default-im-attrs exwm-xim--default-ic-attrs xcb:EventMask:KeyPress xcb:EventMask:NoEvent xim:opcode:close xim:opcode:trigger-notify xim:opcode:encoding-negotiation xim:encoding-negotiation-reply-category:name xim:opcode:query-extension xim:opcode:set-im-values xim:opcode:get-im-values xim:error-flag:invalid-ic-id xim:error-code:bad-something exwm-xim--default-attributes xim:opcode:create-ic exwm-xim--ic-id xim:opcode:destroy-ic xim:opcode:set-ic-values xim:opcode:get-ic-values xim:opcode:set-ic-focus xim:opcode:unset-ic-focus xim:opcode:forward-event xim:opcode:sync xim:opcode:sync-reply xim:opcode:reset-ic xim:opcode:str-conversion-reply xim:opcode:preedit-start-reply xim:opcode:preedit-caret-reply :index "%s%s: QUERY-EXTENSION\n" xim:query-extension xim:query-extension-reply :length :extensions "%s%s: SET-IM-VALUES\n" xim:set-im-values xim:set-im-values-reply "%s%s: GET-IM-VALUES\n" xim:get-im-values im-attributes-id #[257 "\211\300U\207" [0] 3 "\n\n(fn I)"] apply cl-every xim:error :flag :error-code :type :detail xim:get-im-values-reply :im-attributes "%s%s: CREATE-IC\n" xim:create-ic xim:create-ic-reply "%s%s: DESTROY-IC\n" xim:destroy-ic xim:destroy-ic-reply ic-id "%s%s: SET-IC-VALUES\n" xim:set-ic-values xim:set-ic-values-reply "%s%s: GET-IC-VALUES\n" xim:get-ic-values xim:get-ic-values-reply :ic-attributes "%s%s: SET-IC-FOCUS\n" "%s%s: UNSET-IC-FOCUS\n" "%s%s: FORWARD-EVENT\n" xim:forward-event exwm-xim--handle-forward-event-request "%s%s: SYNC\n" xim:sync xim:sync-reply "%s%s: SYNC-REPLY\n" "%s%s: RESET-IC\n" xim:reset-ic xim:reset-ic-reply :string "%s%s: PREEDIT: %d\n" "%s%s: Bad protocol\n" mapc make-byte-code 257 "\302\300\301#\207" vconcat vector [exwm-xim--make-request] 5 "\n\n(fn REPLY)" xcb:flush] 25 (#$ . 7974)]) #@33 (fn REQ LSB CONN CLIENT-XWIN) (defalias 'exwm-xim--handle-forward-event-request #[1028 "r\306 q\210)\307\211\211\211\211\310\311!\262\312\313\f\314\"\"\210)\315\n\313\316\"\313\317\"#\262@\320U\204F\321\n@\322\313\317\"\323\nA!\"#\262\210\313\n\314\"\204S \205i\313\n\314\"\204r \211A\242\262:\203r@\324=\203rA\262\203\221\325=\204\221\203\221\250\203\221\326V\204\221\327W\203\370 \313\314\"\203\243\313\314\"\262\202\317\330\n\"\262\211\331\316\332\n\n@@\"#\266\211\331\317@A#\266 \333\n\")\262\203\364\334\310\335\336\313\337\"\340\313\341\"\342\f\343\313 \344\"\345& \n\n#\210\210\202U \346=\203\347 \210\350\216\351\352!r\211q\210\353\320\354\355\356!\357\"\360$\216\324\2119:!\262\361\307!\210\362\260\363\"\262\334\310\364\336\313\337\"\340\313\341\"\342\365\f;\"\366 G\367 & \n\n#\210,\210)\370!\210\307\262 \331\314\307#\266\202G\207" [input-method-function xcb:lsb exwm-xim--conn unread-command-events xim:commit-flag:synchronous exwm--selected-input-mode window-buffer nil make-instance xcb:KeyPress xcb:unmarshal slot-value event xcb:keysyms:keycode->keysym detail state 0 xcb:keysyms:keysym->event logand lognot t list 32 126 xcb:keysyms:event->keysyms eieio-oset xcb:keysyms:keysym->keycode xcb:marshal exwm-xim--make-request xim:forward-event :im-id im-id :ic-id ic-id :flag :serial-number serial-number :event char-mode exwm-input--grab-keyboard #[0 "\301=\205\302 \207" [exwm--selected-input-mode char-mode exwm-input--release-keyboard] 2] generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 message encode-coding-string compound-text-with-extensions xim:commit-x-lookup-chars logior :length :string xcb:flush exwm-input-line-mode-passthrough input-method-use-echo-area xim:commit-flag:x-lookup-chars] 24 (#$ . 14602)]) #@193 Make an XIM request REQ via connection CONN. CLIENT-XWIN would receive a ClientMessage event either telling the client the request data or where to fetch the data. (fn REQ CONN CLIENT-XWIN) (defalias 'exwm-xim--make-request #[771 "\203\306\307 \203 \202\310\311#\210\312!\313\211\211\211G\314X\203<\315\262\316\317\314GZ\320\"\"\262\321\322\323#\262\202t\324\325\326\n\"!\262\nT\327\321\330\331 \332\f\333\f\334\f\335\315\336G\337&\"\210\340\262\321\322\341G\342BB#\262\321\343\335\332\n\334 \337\n& \262\327\321\344\345\320\346\f\347)\350\312\f\"& \"\207" [exwm-debug exwm-debug-log-time-function exwm-xim--property-index xcb:PropMode:Append xcb:Atom:STRING exwm-xim--_XIM_PROTOCOL xcb-debug:message "%s%s: \n" "" "exwm-xim--make-request" xcb:marshal nil 20 8 append make-list 0 make-instance xcb:ClientMessageData :data8 exwm--intern-atom format "_EXWM_XIM_%x" xcb:-+request xcb:ChangeProperty :mode :window :property :type :format :data-len :data 32 :data32 (0 0 0) xcb:ClientMessage xcb:SendEvent :propagate :destination :event-mask :event xcb:EventMask:NoEvent] 26 (#$ . 16522)]) #@135 Do cleanups on receiving DestroyNotify event. Such event would be received when the client window is destroyed. (fn DATA SYNTHETIC) (defalias 'exwm-xim--on-DestroyNotify #[514 "\203\304\305 \203 \202\306\307#\210\211?\205p\310\311!\312\211\211\313\"\210\314\315\"\262\316\n\"\262\211\205n\316 \"\317H\262\211 @=\203J AA\202O\320 \"\210\n@=\203]\nAA\202b\320\n\"\210\321\310\322\323#\"\210\324!\266\204\207" [exwm-debug exwm-debug-log-time-function exwm-xim--client-server-plist exwm-xim--server-client-plist xcb-debug:message "%s%s: \n" "" "exwm-xim--on-DestroyNotify" make-instance xcb:DestroyNotify nil xcb:unmarshal slot-value window plist-get 0 cl--do-remf xcb:-+request xcb:DestroyWindow :window xcb:disconnect] 12 (#$ . 17664)]) #@28 Initialize the XIM module. (defalias 'exwm-xim--init #[0 "\3062\302\203\307\310 \203 \202\311\312#\210\n\203 \313\306\314\"\210\315\316!\315\317!\315\320!\315\321!@\315\322!A\315\323!B\324 \325\n!C\326\327\n\330\"\314\"\210\331\n!\210\332\n\333\334#\210\332\n\335\336#\210\332\n\337\340#\210\341\n\342\343\344\345\346C\347D\350\345\351\345\352\353\354\353\355\345\356E\357\345\360F\361\353&\"\210\341\n\342\362\363C\364 \365G&\"\210\341\n\342\366\367H\370D\371@\372I\373\374\375\353\376J\203\263\377\202\266\201K !&\"\210\201L\n!0\207" [exwm-debug exwm-debug-log-time-function exwm-xim--conn exwm-xim--@server exwm-xim--LOCALES exwm-xim--TRANSPORT --cl-block-exwm-xim--init-- xcb-debug:message "%s%s: \n" "" "exwm-xim--init" throw nil exwm--intern-atom "@server=exwm-xim" "LOCALES" "TRANSPORT" "XIM_SERVERS" "_XIM_PROTOCOL" "_XIM_XCONNECT" xcb:connect xcb:generate-id set-process-query-on-exit-flag slot-value process xcb:keysyms:init xcb:+event xcb:SelectionRequest exwm-xim--on-SelectionRequest xcb:ClientMessage exwm-xim--on-ClientMessage-0 xcb:DestroyNotify exwm-xim--on-DestroyNotify xcb:-+request make-instance xcb:CreateWindow :depth 0 :wid :parent :x :y :width 1 :height :border-width :class :visual :value-mask :override-redirect xcb:SetSelectionOwner :owner :selection :time xcb:ChangeProperty :mode :window :property :type :format 32 :data-len :data xcb:-pack-u4-lsb exwm-xim--XIM_SERVERS exwm-xim--_XIM_PROTOCOL exwm-xim--_XIM_XCONNECT exwm-xim--event-xwin exwm--root xcb:WindowClass:InputOutput xcb:CW:OverrideRedirect xcb:Time:CurrentTime xcb:PropMode:Prepend xcb:Atom:ATOM xcb:lsb xcb:-pack-u4 xcb:flush] 28 (#$ . 18438)]) #@22 Exit the XIM module. (defalias 'exwm-xim--exit #[0 "\3062\320\203\307\310 \203 \202\311\312#\210\313\314\n\"\210 \204%\315\306\316\"\210\317 \320 \321\322\323\324\325\f\326 \327/\330\331\332\333& \"\316#@\316\211\211\204J\315\306\316\"\210\334\335\"\262G\336V\204\\\315\306\316\"\210\337!\2620\203j\340\202k\341\2620\203v\342\202w\343\262G\336\245\331\211W\203\231\211\336_\"B\262\210\211T\262\202~\266\3441\"\262\345\"\262\346 \321\347\3502\325\f\326 \327/\351\352\353G\354&\"\210\355 !\266\356 !\210\316\2110\207" [exwm-debug exwm-debug-log-time-function exwm-xim--server-client-plist exwm-xim--conn exwm--root exwm-xim--XIM_SERVERS --cl-block-exwm-xim--exit-- xcb-debug:message "%s%s: \n" "" "exwm-xim--exit" mapc #[257 "\300!\205 \301\302\234!\207" [vectorp xcb:disconnect 0] 4 "\n\n(fn I)"] throw nil xcb:-+reply xcb:-+request-unchecked make-instance xcb:GetProperty :delete 1 :window :property :type :long-offset 0 :long-length 1000 slot-value value 4 vconcat xcb:-pack-u4-lsb xcb:-pack-u4 xcb:-unpack-u4-lsb xcb:-unpack-u4 delq mapcar xcb:-+request xcb:ChangeProperty :mode :format 32 :data-len :data xcb:flush xcb:disconnect xcb:Atom:ATOM xcb:lsb exwm-xim--@server xcb:PropMode:Replace] 22 (#$ . 20118)]) #@30 Enable XIM support for EXWM. (defalias 'exwm-xim-enable #[0 "\203\302\303 \203 \202\304\305#\210\306\307\310\"\210\306\311\312\"\207" [exwm-debug exwm-debug-log-time-function xcb-debug:message "%s%s: \n" "" "exwm-xim-enable" add-hook exwm-init-hook exwm-xim--init exwm-exit-hook exwm-xim--exit] 4 (#$ . 21395)]) (provide 'exwm-xim)