Current File : //kunden/kunden/proc/thread-self/root/usr/share/emacs/27.2/lisp/leim/quail/uni-input.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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<hex> or u<hex>, where <hex> is a four-digit hex number." internal-temp-output-buffer-show inhibit-read-only #2=#:buf standard-output] 4 nil nil])
(provide 'uni-input)