;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:44:24 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/iso-transl.el ;;; emacs version 19.28.90.26. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/iso-transl.el' was compiled for Emacs 19")) #@70 Mapping of ASCII characters to their corresponding dead-key symbols. (defvar iso-transl-dead-key-alist (quote ((39 . mute-acute) (96 . mute-grave) (34 . mute-diaeresis) (67108896 . mute-asciicircum) (126 . mute-asciitilde))) (#$ . 489)) #@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 (quote (("* " . [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]) ("*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]))) (#$ . 733)) (byte-code "ÀÁ!„ÂÁ BÀ‡" [boundp 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" . [241]) ("n" . [209]))) current-load-list] 2) #@26 Keymap for C-x 8 prefix. (defvar iso-transl-ctl-x-8-map nil (#$ . 3287)) (byte-code "„Á \n„Á Ã\nÄ#‡" [iso-transl-ctl-x-8-map make-sparse-keymap key-translation-map define-key "8"] 4) (defalias 'iso-transl-define-keys #[(alist) "…qÁ\n@@@A#ˆÃ@@!@@ÄH ž‰ÄÈÄHÉ\"IˆÁ\n@A#ˆÁ ÌÄH!Í#ˆƒhÎ!‰ÄAIˆÁ ÌÄH!Í#ˆÁ\n@A#ˆ)*A‰„͇" [alist define-key iso-transl-ctl-x-8-map vconcat 0 iso-transl-dead-key-alist deadpair vec logior 4194304 key-translation-map isearch-mode-map vector nil copy-sequence deadvec] 6]) (defalias 'iso-transl-set-language #[(lang) "ÀÁ\n \"A!‡" [iso-transl-define-keys assoc lang iso-transl-language-alist] 4 nil (list (let ((completion-ignore-case t)) (completing-read "Set which language? " iso-transl-language-alist nil t)))]) (byte-code "À !ˆÂ ÄÅ#ˆÂ ÆÇ#ˆÂ ÈÅ#ˆÉÊ!‡" [iso-transl-define-keys iso-transl-char-map define-key isearch-mode-map "" nil [24 t] isearch-other-control-char "8" provide iso-transl] 4)