;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'quail)
#@13 

(fn CHAR)
(defalias 'ucs-input-insert-char #[257 "\211c\210\301\302!`#\207" [quail-overlay move-overlay overlay-start] 5 (#$ . 101)])
#@12 

(fn KEY)
(defalias 'ucs-input-method #[257 "\204\211\306U\204\211\307U\204\211C\207\310\311!\210\312
!\210\313 \314\311\315\311C
\316\317\"\216\3202\260\315\211\321W\203\215\311\322\311!\311
;\203i
G\323U\203i
\315H\211\262\203i\211\324>\203i\211B\262\312
!\266\202\206\325
!\203w\325
!\326
!|\210\327\320\330\331!\332!\"\"\266\211T\262
\2026\210\325
!\203\234\325
!\326
!|\210\333\334\335\237A\"\336\"\337
!\205\255\211C\262
0-\207" [buffer-read-only help-char echo-keystrokes input-method-function buffer-undo-list quail-overlay 85 117 quail-setup-overlays nil ucs-input-insert-char buffer-modified-p t 0 make-closure #[0 "\301 \210\302\300!\210\303\304!\207" [V0 quail-delete-overlays set-buffer-modified-p run-hooks input-method-after-insert-chunk-hook] 2] non-digit 4 read-key-sequence 1 (48 49 50 51 52 53 54 55 56 57 97 98 99 100 101 102 65 66 67 68 69 70) overlay-start overlay-end throw append reverse listify-key-sequence string-to-number apply string 16 characterp] 17 (#$ . 245)])
#@234 Activate UCS input method.
With ARG, activate UCS input method if and only if ARG is positive.

While this input method is active, the variable
`input-method-function' is bound to the function `ucs-input-method'.

(fn &optional ARG)
(defalias 'ucs-input-activate #[256 "\211\203\303
!\304W\203\305\216\306 \210\307 \210\310\211)\207\311\312\307 \210\313 \314 =\203-\315\316\317\"\210\320\302!\210\321\211\207" [describe-current-input-method-function deactivate-current-input-method-function input-method-function prefix-numeric-value 0 #[0 "\300\301!\207" [kill-local-variable input-method-function] 2] quail-hide-guidance quail-delete-overlays nil ucs-input-deactivate ucs-input-help selected-window minibuffer-window add-hook minibuffer-exit-hook quail-exit-from-minibuffer make-local-variable ucs-input-method] 4 (#$ . 1285)])
#@30 Deactivate UCS input method.
(defalias 'ucs-input-deactivate #[0 "\300\301!\207" [ucs-input-activate -1] 2 (#$ . 2130) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias ucs-input-inactivate ucs-input-deactivate nil make-obsolete "24.3"] 4)
(defalias 'ucs-input-help #[0 "r\306\307!q\210p\310 \210
\311\211\312\211\312\313 \210\314\315!\210+\211\316\317!\320!\210)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only get-buffer-create "*Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ "Input method: ucs (mode line indicator:U+)\n\nInput as Unicode: U<hex> or u<hex>, where <hex> is a four-digit hex number." internal-temp-output-buffer-show standard-output] 6 nil nil])
(provide 'uni-input)