;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:46:44 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/international/iso-transl.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`iso-transl.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@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)) (#$ . 636)) #@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 '(("* " . iso-transl-no-break-space) (" " . iso-transl-no-break-space) ("*!" . iso-transl-inverted-exclamation-mark) ("!" . iso-transl-inverted-exclamation-mark) ("\"\"" . iso-transl-diaeresis) ("\"A" . iso-transl-A-umlaut) ("\"E" . iso-transl-E-umlaut) ("\"I" . iso-transl-I-umlaut) ("\"O" . iso-transl-O-umlaut) ("\"U" . iso-transl-U-umlaut) ("\"a" . iso-transl-a-umlaut) ("\"e" . iso-transl-e-umlaut) ("\"i" . iso-transl-i-umlaut) ("\"o" . iso-transl-o-umlaut) ("\"s" . iso-transl-ss) ("\"u" . iso-transl-u-umlaut) ("\"y" . iso-transl-y-umlaut) ("''" . iso-transl-acute-accent) ("'A" . iso-transl-A-acute) ("'E" . iso-transl-E-acute) ("'I" . iso-transl-I-acute) ("'O" . iso-transl-O-acute) ("'U" . iso-transl-U-acute) ("'Y" . iso-transl-Y-acute) ("'a" . iso-transl-a-acute) ("'e" . iso-transl-e-acute) ("'i" . iso-transl-i-acute) ("'o" . iso-transl-o-acute) ("'u" . iso-transl-u-acute) ("'y" . iso-transl-y-acute) ("*$" . iso-transl-general-currency-sign) ("$" . iso-transl-general-currency-sign) ("*+" . iso-transl-plus-or-minus-sign) ("+" . iso-transl-plus-or-minus-sign) (",," . iso-transl-cedilla) (",C" . iso-transl-C-cedilla) (",c" . iso-transl-c-cedilla) ("*-" . iso-transl-soft-hyphen) ("-" . iso-transl-soft-hyphen) ("*." . iso-transl-middle-dot) ("." . iso-transl-middle-dot) ("//" . iso-transl-division-sign) ("/A" . iso-transl-A-ring) ("/E" . iso-transl-AE) ("/O" . iso-transl-O-slash) ("/a" . iso-transl-a-ring) ("/e" . iso-transl-ae) ("/o" . iso-transl-o-slash) ("1/2" . iso-transl-one-half) ("1/4" . iso-transl-one-quarter) ("3/4" . iso-transl-three-quarters) ("*<" . iso-transl-angle-left) ("<" . iso-transl-angle-left) ("*=" . iso-transl-macron) ("=" . iso-transl-macron) ("*>" . iso-transl-angle-right) (">" . iso-transl-angle-right) ("*?" . iso-transl-inverted-question-mark) ("?" . iso-transl-inverted-question-mark) ("*C" . iso-transl-copyright-sign) ("C" . iso-transl-copyright-sign) ("*L" . iso-transl-pound-sign) ("L" . iso-transl-pound-sign) ("*P" . iso-transl-pilcrow) ("P" . iso-transl-pilcrow) ("*R" . iso-transl-registered-sign) ("R" . iso-transl-registered-sign) ("*S" . iso-transl-section-sign) ("S" . iso-transl-section-sign) ("*Y" . iso-transl-yen-sign) ("Y" . iso-transl-yen-sign) ("^1" . iso-transl-superscript-1) ("^2" . iso-transl-superscript-2) ("^3" . iso-transl-superscript-3) ("^A" . iso-transl-A-caret) ("^E" . iso-transl-E-caret) ("^I" . iso-transl-I-caret) ("^O" . iso-transl-O-caret) ("^U" . iso-transl-U-caret) ("^a" . iso-transl-a-caret) ("^e" . iso-transl-e-caret) ("^i" . iso-transl-i-caret) ("^o" . iso-transl-o-caret) ("^u" . iso-transl-u-caret) ("_a" . iso-transl-ordinal-indicator-feminine) ("_o" . iso-transl-ordinal-indicator-masculine) ("`A" . iso-transl-A-grave) ("`E" . iso-transl-E-grave) ("`I" . iso-transl-I-grave) ("`O" . iso-transl-O-grave) ("`U" . iso-transl-U-grave) ("`a" . iso-transl-a-grave) ("`e" . iso-transl-e-grave) ("`i" . iso-transl-i-grave) ("`o" . iso-transl-o-grave) ("`u" . iso-transl-u-grave) ("*c" . iso-transl-cent-sign) ("c" . iso-transl-cent-sign) ("*o" . iso-transl-degree-sign) ("o" . iso-transl-degree-sign) ("*u" . iso-transl-micro-sign) ("u" . iso-transl-micro-sign) ("*m" . iso-transl-micro-sign) ("m" . iso-transl-micro-sign) ("*x" . iso-transl-multiplication-sign) ("x" . iso-transl-multiplication-sign) ("*|" . iso-transl-broken-vertical-line) ("|" . iso-transl-broken-vertical-line) ("~A" . iso-transl-A-tilde) ("~D" . iso-transl-D-stroke) ("~N" . iso-transl-N-tilde) ("~O" . iso-transl-O-tilde) ("~T" . iso-transl-THORN) ("~a" . iso-transl-a-tilde) ("~d" . iso-transl-d-stroke) ("~n" . iso-transl-n-tilde) ("~o" . iso-transl-o-tilde) ("~t" . iso-transl-thorn) ("~~" . iso-transl-not-sign) ("' " . "'") ("` " . "`") ("\" " . "\"") ("^ " . "^") ("~ " . "~")) (#$ . 1217)) (byte-code "\302\303\304\"\210\302\305\306\"\210\302\307\310\"\210\302\311\312\"\210\302\313\314\"\210\302\315\316\"\210\302\317\320\"\210\302\321\322\"\210\302\323\324\"\210\302\325\326\"\210\302\327\330\"\210\302\331\332\"\210\302\333\334\"\210\302\335\336\"\210\302\337\340\"\210\302\341\342\"\210\302\343\344\"\210\302\345\346\"\210\302\347\350\"\210\302\351\352\"\210\302\353\354\"\210\302\355\356\"\210\302\357\360\"\210\302\361\362\"\210\302\363\364\"\210\302\365\366\"\210\302\367\370\"\210\302\371\372\"\210\302\373\374\"\210\302\375\376\"\210\302\377\201@\"\210\302\201A\201B\"\210\302\201C\201D\"\210\302\201E\201F\"\210\302\201G\201H\"\210\302\201I\201J\"\210\302\201K\201L\"\210\302\201M\201N\"\210\302\201O\201P\"\210\302\201Q\201R\"\210\302\201S\201T\"\210\302\201U\201V\"\210\302\201W\201X\"\210\302\201Y\201Z\"\210\302\201[\201\\\"\210\302\201]\201^\"\210\302\201_\201`\"\210\302\201a\201b\"\210\302\201c\201d\"\210\302\201e\201f\"\210\302\201g\201h\"\210\302\201i\201j\"\210\302\201k\201l\"\210\302\201m\201n\"\210\302\201o\201p\"\210\302\201q\201r\"\210\302\201s\201t\"\210\302\201u\201v\"\210\302\201w\201x\"\210\302\201y\201z\"\210\302\201{\201|\"\210\302\201}\201~\"\210\302\201\201\200\"\210\302\201\201\201\202\"\210\302\201\203\201\204\"\210\302\201\205\201\206\"\210\302\201\207\201\210\"\210\302\201\211\201\212\"\210\302\201\213\201\214\"\210\302\201\215\201\216\"\210\302\201\217\201\220\"\210\302\201\221\201\222\"\210\302\201\223\201\224\"\210\302\201\225\201\226\"\210\302\201\227\201\230\"\210\302\201\231\201\232\"\210\302\201\233\201\234\"\210\302\201\235\201\236\"\210\302\201\237\201\240\"\210\302\201\241\201\242\"\210\302\201\243\201\244\"\210\302\201\245\201\246\"\210\302\201\247\201\250\"\210\302\201\251\201\252\"\210\302\201\253\201\254\"\210\302\201\255\201\256\"\210\302\201\257\201\260\"\210\302\201\261\201\262\"\210\302\201\263\201\264\"\210\302\201\265\201\266\"\210\302\201\267\201\270\"\210\302\201\271\201\272\"\210\302\201\273\201\274\"\210\302\201\275\201\276\"\210\302\201\277\201\300\"\210\302\201\301\201\302\"\210\301B\201\303\301!\204\366\201\304\302\207" [current-load-list iso-transl-language-alist defalias iso-transl-no-break-space [160] iso-transl-inverted-exclamation-mark [161] iso-transl-cent-sign [162] iso-transl-pound-sign [163] iso-transl-general-currency-sign [164] iso-transl-yen-sign [165] iso-transl-broken-vertical-line [166] iso-transl-section-sign [167] iso-transl-diaeresis [168] iso-transl-copyright-sign [169] iso-transl-ordinal-indicator-feminine [170] iso-transl-angle-left [171] iso-transl-not-sign [172] iso-transl-soft-hyphen [173] iso-transl-registered-sign [174] iso-transl-macron [175] iso-transl-degree-sign [176] iso-transl-plus-or-minus-sign [177] iso-transl-superscript-2 [178] iso-transl-superscript-3 [179] iso-transl-acute-accent [180] iso-transl-micro-sign [181] iso-transl-pilcrow [182] iso-transl-middle-dot [183] iso-transl-cedilla [184] iso-transl-superscript-1 [185] iso-transl-ordinal-indicator-masculine [186] iso-transl-angle-right [187] iso-transl-one-quarter [188] iso-transl-one-half [189] iso-transl-three-quarters [190] iso-transl-inverted-question-mark [191] iso-transl-A-grave [192] iso-transl-A-acute [193] iso-transl-A-caret [194] iso-transl-A-tilde [195] iso-transl-A-umlaut [196] iso-transl-A-ring [197] iso-transl-AE [198] iso-transl-C-cedilla [199] iso-transl-E-grave [200] iso-transl-E-acute [201] iso-transl-E-caret [202] iso-transl-E-umlaut [203] iso-transl-I-grave [204] iso-transl-I-acute [205] iso-transl-I-caret [206] iso-transl-I-umlaut [207] iso-transl-D-stroke [208] iso-transl-N-tilde [209] iso-transl-O-grave [210] iso-transl-O-acute [211] iso-transl-O-caret [212] iso-transl-O-tilde [213] iso-transl-O-umlaut [214] iso-transl-multiplication-sign [215] iso-transl-O-slash [216] iso-transl-U-grave [217] iso-transl-U-acute [218] iso-transl-U-caret [219] iso-transl-U-umlaut [220] iso-transl-Y-acute [221] iso-transl-THORN [222] iso-transl-ss [223] iso-transl-a-grave [224] iso-transl-a-acute [225] iso-transl-a-caret [226] iso-transl-a-tilde [227] iso-transl-a-umlaut [228] iso-transl-a-ring [229] iso-transl-ae [230] iso-transl-c-cedilla [231] iso-transl-e-grave [232] iso-transl-e-acute [233] iso-transl-e-caret [234] iso-transl-e-umlaut [235] iso-transl-i-grave [236] iso-transl-i-acute [237] iso-transl-i-caret [238] iso-transl-i-umlaut [239] iso-transl-d-stroke [240] iso-transl-n-tilde [241] iso-transl-o-grave [242] iso-transl-o-acute [243] iso-transl-o-caret [244] iso-transl-o-tilde [245] iso-transl-o-umlaut [246] iso-transl-division-sign [247] iso-transl-o-slash [248] iso-transl-u-grave [249] iso-transl-u-acute [250] iso-transl-u-caret [251] iso-transl-u-umlaut [252] iso-transl-y-acute [253] iso-transl-thorn [254] iso-transl-y-umlaut [255] boundp (("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])))] 3) #@26 Keymap for C-x 8 prefix. (defvar iso-transl-ctl-x-8-map nil (#$ . 10615)) (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 "\302!\210\303 \304\305#\210\303 \306\307#\210\303 \310\305#\210\311\312!\207" [iso-transl-char-map isearch-mode-map iso-transl-define-keys define-key "" nil [24 t] isearch-other-control-char "8" provide iso-transl] 4)