;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'quail) (defalias 'ucs-input-insert-char #[(char) "c\210\302 \303 !`#\207" [char quail-overlay move-overlay overlay-start] 4]) (defalias 'ucs-input-method #[(key) "\204 \306U\204 \307U\204 C\207\310\311!\210\312 !\210\313 \314\311\315\311 C\316 !\"\317\216\3202\301\321\315#$#$W\203\230\322\311!\311\211%;\203p%G\323U\203p%\315H\211\203p \324>\203p B\312 !\210\202\216\325&!\203\201\325&!\326&!|\210\327\320\330\331 !\332%!\"\"\210*#T\211#\202<*\325&!\203\252\325&!\326&!|\210\333\334\335 \237A\"\336\"'\337'!\205\277'C)0.\207" [buffer-read-only key str events help-char echo-keystrokes 85 117 quail-setup-overlays nil ucs-input-insert-char buffer-modified-p t 0 " " #[nil "\301 \210\302!\210\303\304!\207" [modified-p 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 input-method-function buffer-undo-list modified-p i --dotimes-limit-- seq quail-overlay n] 8]) #@214 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'. (defalias 'ucs-input-activate #[(&optional arg) "\203\304!\305W\203\306\216\307 \210\310 \210\311\211)\207\312\313\310 \210\314 \315 =\203-\316\317\320\"\210\321\303!\210\322\211\207" [arg describe-current-input-method-function deactivate-current-input-method-function input-method-function prefix-numeric-value 0 #[nil "\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] 3 (#$ . 1596)]) #@30 Deactivate UCS input method. (defalias 'ucs-input-deactivate #[nil "\300\301!\207" [ucs-input-activate -1] 2 (#$ . 2436) 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 #[nil "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 #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks 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 or u, where is a four-digit hex number." internal-temp-output-buffer-show inhibit-read-only #2=#:buf standard-output] 4 nil nil]) (provide 'uni-input)