ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/leim/quail/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/leim/quail/uni-input.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 1598)])
#@30 Deactivate UCS input method.
(defalias 'ucs-input-deactivate #[nil "\300\301!\207" [ucs-input-activate -1] 2 (#$ . 2438) 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)
Kontol Shell Bypass