HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/international/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/international/iso-transl.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@70 Mapping of ASCII characters to their corresponding dead-key symbols.
(defvar iso-transl-dead-key-alist '((39 . mute-acute) (96 . mute-grave) (34 . mute-diaeresis) (94 . mute-asciicircum) (126 . mute-asciitilde) (39 . dead-acute) (96 . dead-grave) (34 . dead-diaeresis) (94 . dead-asciicircum) (126 . dead-asciitilde) (94 . dead-circum) (94 . dead-circumflex) (126 . dead-tilde) (39 . S-dead-acute) (96 . S-dead-grave) (34 . S-dead-diaeresis) (94 . S-dead-asciicircum) (126 . S-dead-asciitilde) (94 . S-dead-circum) (94 . S-dead-circumflex) (126 . S-dead-tilde)) (#$ . 408))
#@221 Alist of character translations for entering ISO characters.
Each element has the form (STRING . VECTOR).
The sequence STRING of ASCII chars translates into the
sequence VECTOR.  (VECTOR is normally one character long.)
(defvar iso-transl-char-map '(("* " . [160]) (" " . [160]) ("*!" . [161]) ("!" . [161]) ("\"\"" . [168]) ("\"A" . [196]) ("\"E" . [203]) ("\"I" . [207]) ("\"O" . [214]) ("\"U" . [220]) ("\"a" . [228]) ("\"e" . [235]) ("\"i" . [239]) ("\"o" . [246]) ("\"s" . [223]) ("\"u" . [252]) ("\"y" . [255]) ("''" . [180]) ("'A" . [193]) ("'E" . [201]) ("'I" . [205]) ("'O" . [211]) ("'U" . [218]) ("'Y" . [221]) ("'a" . [225]) ("'e" . [233]) ("'i" . [237]) ("'o" . [243]) ("'u" . [250]) ("'y" . [253]) ("*$" . [164]) ("$" . [164]) ("*+" . [177]) ("+" . [177]) (",," . [184]) (",C" . [199]) (",c" . [231]) ("*-" . [173]) ("-" . [173]) ("*." . [183]) ("." . [183]) ("//" . [247]) ("/A" . [197]) ("/E" . [198]) ("/O" . [216]) ("/a" . [229]) ("/e" . [230]) ("/o" . [248]) ("1/2" . [189]) ("1/4" . [188]) ("3/4" . [190]) ("*<" . [171]) ("<" . [171]) ("*=" . [175]) ("=" . [175]) ("*>" . [187]) (">" . [187]) ("*?" . [191]) ("?" . [191]) ("*C" . [169]) ("C" . [169]) ("*L" . [163]) ("L" . [163]) ("*P" . [182]) ("P" . [182]) ("*R" . [174]) ("R" . [174]) ("*S" . [167]) ("S" . [167]) ("*Y" . [165]) ("Y" . [165]) ("^1" . [185]) ("^2" . [178]) ("^3" . [179]) ("^A" . [194]) ("^E" . [202]) ("^I" . [206]) ("^O" . [212]) ("^U" . [219]) ("^a" . [226]) ("^e" . [234]) ("^i" . [238]) ("^o" . [244]) ("^u" . [251]) ("_a" . [170]) ("_o" . [186]) ("`A" . [192]) ("`E" . [200]) ("`I" . [204]) ("`O" . [210]) ("`U" . [217]) ("`a" . [224]) ("`e" . [232]) ("`i" . [236]) ("`o" . [242]) ("`u" . [249]) ("*c" . [162]) ("c" . [162]) ("*o" . [176]) ("o" . [176]) ("*u" . [181]) ("u" . [181]) ("*m" . [181]) ("m" . [181]) ("*x" . [215]) ("x" . [215]) ("*|" . [166]) ("|" . [166]) ("~A" . [195]) ("~D" . [208]) ("~N" . [209]) ("~O" . [213]) ("~T" . [222]) ("~a" . [227]) ("~d" . [240]) ("~n" . [241]) ("~o" . [245]) ("~t" . [254]) ("~~" . [172]) ("_h" . [8208]) ("_H" . [8209]) ("_f" . [8210]) ("_n" . [8211]) ("_m" . [8212]) ("_q" . [8213]) ("[" . [8216]) ("]" . [8217]) ("{" . [8220]) ("}" . [8221]) ("1+" . [8224]) ("2+" . [8225]) ("**" . [8226]) ("*'" . [8242]) ("*\"" . [8243]) ("*E" . [8364]) ("No" . [8470]) ("a<" . [8592]) ("a>" . [8594]) ("a=" . [8596]) ("_-" . [8722]) ("~=" . [8776]) ("/=" . [8800]) ("_<" . [8804]) ("_>" . [8805]) ("' " . "'") ("` " . "`") ("\" " . "\"") ("^ " . "^") ("~ " . "~")) (#$ . 989))
(defvar iso-transl-language-alist '(("Esperanto" ("C" . [198]) ("G" . [216]) ("H" . [166]) ("J" . [172]) ("S" . [222]) ("U" . [221]) ("c" . [230]) ("g" . [248]) ("h" . [182]) ("j" . [188]) ("s" . [254]) ("u" . [253])) ("French" ("C" . [199]) ("c" . [231])) ("German" ("A" . [196]) ("O" . [214]) ("U" . [220]) ("a" . [228]) ("o" . [246]) ("s" . [223]) ("u" . [252])) ("Portuguese" ("C" . [199]) ("c" . [231])) ("Spanish" ("!" . [161]) ("?" . [191]) ("N" . [209]) ("n" . [241]))))
#@26 Keymap for C-x 8 prefix.
(defvar iso-transl-ctl-x-8-map nil (#$ . 3981))
(byte-code "\204\300\302 \211M\210	\204\302 \303	\304#\207" [iso-transl-ctl-x-8-map key-translation-map make-sparse-keymap define-key "8"] 4)
(defalias 'iso-transl-define-keys #[(alist) "\205{@A\306\n@@	#\210@@\307H\310@@!
\307\311
\307H\312\"I\210\306
	#\210\306\313
\307H!\314#\210\f\203r\f@@=\203k\315
!\f@A\211\307I\210\306\313!\314#\210\306	#\210*\fA\211\204?,A\211\204\314\207" [alist translated-vec iso-transl-ctl-x-8-map iso-transl-dead-key-alist tail vec define-key 0 vconcat logior 4194304 vector nil copy-sequence inchar key-translation-map isearch-mode-map deadkey deadvec] 6])
(defalias 'iso-transl-set-language #[(lang) "\302\303	\"A!\207" [lang iso-transl-language-alist iso-transl-define-keys assoc] 4 nil (list (let ((completion-ignore-case t)) (completing-read "Set which language? " iso-transl-language-alist nil t)))])
(byte-code "\301!\210\302\303!\207" [iso-transl-char-map iso-transl-define-keys provide iso-transl] 2)