Mercurial > emacs

comparison lisp/international/iso-transl.el @ 49598:0d8b17d428b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Trailing whitepace deleted.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 04 Feb 2003 13:24:35 +0000
parents f7585d63783f
children 695cf19ef79e d7ddb3e565de
comparison
equal deleted inserted replaced
49597:e88404e8f2cf 49598:0d8b17d428b5
41 41
42 ;;; Provide some binding for startup: 42 ;;; Provide some binding for startup:
43 ;;;###autoload (or key-translation-map (setq key-translation-map (make-sparse-keymap))) 43 ;;;###autoload (or key-translation-map (setq key-translation-map (make-sparse-keymap)))
44 ;;;###autoload (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map) 44 ;;;###autoload (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map)
45 ;;;###autoload (autoload 'iso-transl-ctl-x-8-map "iso-transl" "Keymap for C-x 8 prefix." t 'keymap) 45 ;;;###autoload (autoload 'iso-transl-ctl-x-8-map "iso-transl" "Keymap for C-x 8 prefix." t 'keymap)
46 46
47 (defvar iso-transl-dead-key-alist 47 (defvar iso-transl-dead-key-alist
48 '((?\' . mute-acute) 48 '((?\' . mute-acute)
49 (?\` . mute-grave) 49 (?\` . mute-grave)
50 (?\" . mute-diaeresis) 50 (?\" . mute-diaeresis)
51 (?^ . mute-asciicircum) 51 (?^ . mute-asciicircum)
222 ("French" 222 ("French"
223 ("C" . [?Ç]) 223 ("C" . [?Ç])
224 ("c" . [?ç])) 224 ("c" . [?ç]))
225 ("German" 225 ("German"
226 ("A" . [?Ä]) 226 ("A" . [?Ä])
227 ("O" . [?Ö]) 227 ("O" . [?Ö])
228 ("U" . [?Ü]) 228 ("U" . [?Ü])
229 ("a" . [?ä]) 229 ("a" . [?ä])
230 ("o" . [?ö]) 230 ("o" . [?ö])
231 ("s" . [?ß]) 231 ("s" . [?ß])
232 ("u" . [?ü])) 232 ("u" . [?ü]))