annotate lisp/international/iso-transl.el @ 31398:fbaf3c51578e

*** empty log message ***
author Dave Love <fx@gnu.org>
date Tue, 05 Sep 2000 15:16:23 +0000
parents 543519d190b7
children 253f761ad37b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
4920
ccca18983144 entered into RCS
Richard M. Stallman <rms@gnu.org>
parents: 4885
diff changeset
1 ;;; iso-transl.el --- keyboard input definitions for ISO 8859/1.
4884
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2
10535
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
3 ;; Copyright (C) 1987, 1993, 1994, 1995 Free Software Foundation, Inc.
4884
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5 ;; Author: Howard Gayle
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 ;; Maintainer: FSF
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 ;; Keywords: i18n
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 ;; any later version.
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13203
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13203
diff changeset
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13203
diff changeset
24 ;; Boston, MA 02111-1307, USA.
4884
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
5926
240d2ad5803c Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents: 4920
diff changeset
26 ;;; Commentary:
240d2ad5803c Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents: 4920
diff changeset
27
10535
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
28 ;; Loading this package defines three ways of entering the non-ASCII
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
29 ;; printable characters with codes above 127: the prefix C-x 8, or the
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
30 ;; Alt key, or a dead accent key. For example, you can enter uppercase
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
31 ;; A-umlaut as `C-x 8 " A' or `Alt-" A' (if you have an Alt key) or
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
32 ;; `umlaut A' (if you have an umlaut/diaeresis key).
5926
240d2ad5803c Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents: 4920
diff changeset
33
24802
bc8fd0210b4c Add commentary.
Karl Heuer <kwzh@gnu.org>
parents: 24797
diff changeset
34 ;; C-x 8 is set up to autoload this package,
bc8fd0210b4c Add commentary.
Karl Heuer <kwzh@gnu.org>
parents: 24797
diff changeset
35 ;; but Alt keys and dead accent keys are only defined
bc8fd0210b4c Add commentary.
Karl Heuer <kwzh@gnu.org>
parents: 24797
diff changeset
36 ;; once you have loaded the package. It is nontrivial
bc8fd0210b4c Add commentary.
Karl Heuer <kwzh@gnu.org>
parents: 24797
diff changeset
37 ;; to make all of the Alt keys autoload, and it is not clear
bc8fd0210b4c Add commentary.
Karl Heuer <kwzh@gnu.org>
parents: 24797
diff changeset
38 ;; that the dead accent keys SHOULD autoload this package.
bc8fd0210b4c Add commentary.
Karl Heuer <kwzh@gnu.org>
parents: 24797
diff changeset
39
4884
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 ;;; Code:
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41
23672
2ae7f6e850db Add autoload cookies.
Karl Heuer <kwzh@gnu.org>
parents: 22842
diff changeset
42 ;;; Provide some binding for startup:
2ae7f6e850db Add autoload cookies.
Karl Heuer <kwzh@gnu.org>
parents: 22842
diff changeset
43 ;;;###autoload (or key-translation-map (setq key-translation-map (make-sparse-keymap)))
23794
7348b1c771c0 Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents: 23672
diff changeset
44 ;;;###autoload (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map)
23672
2ae7f6e850db Add autoload cookies.
Karl Heuer <kwzh@gnu.org>
parents: 22842
diff changeset
45 ;;;###autoload (autoload 'iso-transl-ctl-x-8-map "iso-transl" "Keymap for C-x 8 prefix." t 'keymap)
2ae7f6e850db Add autoload cookies.
Karl Heuer <kwzh@gnu.org>
parents: 22842
diff changeset
46
10535
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
47 (defvar iso-transl-dead-key-alist
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
48 '((?\' . mute-acute)
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
49 (?\` . mute-grave)
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
50 (?\" . mute-diaeresis)
16142
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
51 (?^ . mute-asciicircum)
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
52 (?\~ . mute-asciitilde)
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
53 (?\' . dead-acute)
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
54 (?\` . dead-grave)
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
55 (?\" . dead-diaeresis)
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
56 (?^ . dead-asciicircum)
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
57 (?\~ . dead-asciitilde)
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
58 (?^ . dead-circum)
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
59 (?^ . dead-circumflex)
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
60 (?\~ . dead-tilde)
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
61 ;; Someone reports that these keys don't work if shifted.
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
62 ;; This might fix it--no word yet.
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
63 (?\' . S-dead-acute)
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
64 (?\` . S-dead-grave)
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
65 (?\" . S-dead-diaeresis)
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
66 (?^ . S-dead-asciicircum)
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
67 (?\~ . S-dead-asciitilde)
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
68 (?^ . S-dead-circum)
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
69 (?^ . S-dead-circumflex)
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
70 (?\~ . S-dead-tilde))
10535
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
71 "Mapping of ASCII characters to their corresponding dead-key symbols.")
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
72
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
73 ;; The two-character mnemonics are intended to be available in all languages.
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
74 ;; The ones beginning with `*' have one-character synonyms, but a
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
75 ;; language-specific table might override the short form for its own use.
24029
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
76
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
77 ;; When a translation is non-ASCII, we use a symbol name
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
78 ;; whose "function definition" is a translation, rather than
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
79 ;; writing the translation directly here.
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
80 ;; That is for the sake of C-x 8 C-h.
5926
240d2ad5803c Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents: 4920
diff changeset
81 (defvar iso-transl-char-map
24029
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
82 '(("* " . iso-transl-no-break-space)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
83 (" " . iso-transl-no-break-space)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
84 ("*!" . iso-transl-inverted-exclamation-mark)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
85 ("!" . iso-transl-inverted-exclamation-mark)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
86 ("\"\"" . iso-transl-diaeresis)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
87 ("\"A" . iso-transl-A-umlaut)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
88 ("\"E" . iso-transl-E-umlaut)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
89 ("\"I" . iso-transl-I-umlaut)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
90 ("\"O" . iso-transl-O-umlaut)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
91 ("\"U" . iso-transl-U-umlaut)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
92 ("\"a" . iso-transl-a-umlaut)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
93 ("\"e" . iso-transl-e-umlaut)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
94 ("\"i" . iso-transl-i-umlaut)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
95 ("\"o" . iso-transl-o-umlaut)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
96 ("\"s" . iso-transl-ss)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
97 ("\"u" . iso-transl-u-umlaut)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
98 ("\"y" . iso-transl-y-umlaut)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
99 ("''" . iso-transl-acute-accent)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
100 ("'A" . iso-transl-A-acute)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
101 ("'E" . iso-transl-E-acute)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
102 ("'I" . iso-transl-I-acute)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
103 ("'O" . iso-transl-O-acute)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
104 ("'U" . iso-transl-U-acute)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
105 ("'Y" . iso-transl-Y-acute)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
106 ("'a" . iso-transl-a-acute)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
107 ("'e" . iso-transl-e-acute)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
108 ("'i" . iso-transl-i-acute)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
109 ("'o" . iso-transl-o-acute)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
110 ("'u" . iso-transl-u-acute)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
111 ("'y" . iso-transl-y-acute)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
112 ("*$" . iso-transl-general-currency-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
113 ("$" . iso-transl-general-currency-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
114 ("*+" . iso-transl-plus-or-minus-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
115 ("+" . iso-transl-plus-or-minus-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
116 (",," . iso-transl-cedilla)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
117 (",C" . iso-transl-C-cedilla)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
118 (",c" . iso-transl-c-cedilla)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
119 ("*-" . iso-transl-soft-hyphen)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
120 ("-" . iso-transl-soft-hyphen)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
121 ("*." . iso-transl-middle-dot)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
122 ("." . iso-transl-middle-dot)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
123 ("//" . iso-transl-division-sign)
24351
57ddc0d468f5 (iso-transl-ae): Renamed from iso-transl-e-slash.
Richard M. Stallman <rms@gnu.org>
parents: 24029
diff changeset
124 ("/A" . iso-transl-A-ring)
57ddc0d468f5 (iso-transl-ae): Renamed from iso-transl-e-slash.
Richard M. Stallman <rms@gnu.org>
parents: 24029
diff changeset
125 ("/E" . iso-transl-AE)
24029
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
126 ("/O" . iso-transl-O-slash)
24351
57ddc0d468f5 (iso-transl-ae): Renamed from iso-transl-e-slash.
Richard M. Stallman <rms@gnu.org>
parents: 24029
diff changeset
127 ("/a" . iso-transl-a-ring)
57ddc0d468f5 (iso-transl-ae): Renamed from iso-transl-e-slash.
Richard M. Stallman <rms@gnu.org>
parents: 24029
diff changeset
128 ("/e" . iso-transl-ae)
24029
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
129 ("/o" . iso-transl-o-slash)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
130 ("1/2" . iso-transl-one-half)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
131 ("1/4" . iso-transl-one-quarter)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
132 ("3/4" . iso-transl-three-quarters)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
133 ("*<" . iso-transl-angle-left)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
134 ("<" . iso-transl-angle-left)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
135 ("*=" . iso-transl-macron)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
136 ("=" . iso-transl-macron)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
137 ("*>" . iso-transl-angle-right)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
138 (">" . iso-transl-angle-right)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
139 ("*?" . iso-transl-inverted-question-mark)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
140 ("?" . iso-transl-inverted-question-mark)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
141 ("*C" . iso-transl-copyright-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
142 ("C" . iso-transl-copyright-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
143 ("*L" . iso-transl-pound-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
144 ("L" . iso-transl-pound-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
145 ("*P" . iso-transl-pilcrow)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
146 ("P" . iso-transl-pilcrow)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
147 ("*R" . iso-transl-registered-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
148 ("R" . iso-transl-registered-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
149 ("*S" . iso-transl-section-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
150 ("S" . iso-transl-section-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
151 ("*Y" . iso-transl-yen-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
152 ("Y" . iso-transl-yen-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
153 ("^1" . iso-transl-superscript-1)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
154 ("^2" . iso-transl-superscript-2)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
155 ("^3" . iso-transl-superscript-3)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
156 ("^A" . iso-transl-A-caret)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
157 ("^E" . iso-transl-E-caret)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
158 ("^I" . iso-transl-I-caret)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
159 ("^O" . iso-transl-O-caret)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
160 ("^U" . iso-transl-U-caret)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
161 ("^a" . iso-transl-a-caret)
30385
543519d190b7 (iso-transl-char-map): Fix ^e, ^i,
Dave Love <fx@gnu.org>
parents: 24802
diff changeset
162 ("^e" . iso-transl-e-caret)
543519d190b7 (iso-transl-char-map): Fix ^e, ^i,
Dave Love <fx@gnu.org>
parents: 24802
diff changeset
163 ("^i" . iso-transl-i-caret)
543519d190b7 (iso-transl-char-map): Fix ^e, ^i,
Dave Love <fx@gnu.org>
parents: 24802
diff changeset
164 ("^o" . iso-transl-o-caret)
543519d190b7 (iso-transl-char-map): Fix ^e, ^i,
Dave Love <fx@gnu.org>
parents: 24802
diff changeset
165 ("^u" . iso-transl-u-caret)
24029
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
166 ("_a" . iso-transl-ordinal-indicator-feminine)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
167 ("_o" . iso-transl-ordinal-indicator-masculine)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
168 ("`A" . iso-transl-A-grave)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
169 ("`E" . iso-transl-E-grave)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
170 ("`I" . iso-transl-I-grave)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
171 ("`O" . iso-transl-O-grave)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
172 ("`U" . iso-transl-U-grave)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
173 ("`a" . iso-transl-a-grave)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
174 ("`e" . iso-transl-e-grave)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
175 ("`i" . iso-transl-i-grave)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
176 ("`o" . iso-transl-o-grave)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
177 ("`u" . iso-transl-u-grave)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
178 ("*c" . iso-transl-cent-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
179 ("c" . iso-transl-cent-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
180 ("*o" . iso-transl-degree-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
181 ("o" . iso-transl-degree-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
182 ("*u" . iso-transl-micro-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
183 ("u" . iso-transl-micro-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
184 ("*m" . iso-transl-micro-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
185 ("m" . iso-transl-micro-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
186 ("*x" . iso-transl-multiplication-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
187 ("x" . iso-transl-multiplication-sign)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
188 ("*|" . iso-transl-broken-vertical-line)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
189 ("|" . iso-transl-broken-vertical-line)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
190 ("~A" . iso-transl-A-tilde)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
191 ("~D" . iso-transl-D-stroke)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
192 ("~N" . iso-transl-N-tilde)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
193 ("~O" . iso-transl-O-tilde)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
194 ("~T" . iso-transl-THORN)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
195 ("~a" . iso-transl-a-tilde)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
196 ("~d" . iso-transl-d-stroke)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
197 ("~n" . iso-transl-n-tilde)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
198 ("~o" . iso-transl-o-tilde)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
199 ("~t" . iso-transl-thorn)
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
200 ("~~" . iso-transl-not-sign)
16175
fadfed208516 (iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents: 16145
diff changeset
201 ("' " . "'")
fadfed208516 (iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents: 16145
diff changeset
202 ("` " . "`")
fadfed208516 (iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents: 16145
diff changeset
203 ("\" " . "\"")
fadfed208516 (iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents: 16145
diff changeset
204 ("^ " . "^")
fadfed208516 (iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents: 16145
diff changeset
205 ("~ " . "~"))
5926
240d2ad5803c Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents: 4920
diff changeset
206 "Alist of character translations for entering ISO characters.
240d2ad5803c Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents: 4920
diff changeset
207 Each element has the form (STRING . VECTOR).
240d2ad5803c Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents: 4920
diff changeset
208 The sequence STRING of ASCII chars translates into the
240d2ad5803c Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents: 4920
diff changeset
209 sequence VECTOR. (VECTOR is normally one character long.)")
240d2ad5803c Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents: 4920
diff changeset
210
24029
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
211 (defalias 'iso-transl-no-break-space [160])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
212 (defalias 'iso-transl-inverted-exclamation-mark [161])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
213 (defalias 'iso-transl-cent-sign [162])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
214 (defalias 'iso-transl-pound-sign [163])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
215 (defalias 'iso-transl-general-currency-sign [164])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
216 (defalias 'iso-transl-yen-sign [165])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
217 (defalias 'iso-transl-broken-vertical-line [166])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
218 (defalias 'iso-transl-section-sign [167])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
219 (defalias 'iso-transl-diaeresis [168])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
220 (defalias 'iso-transl-copyright-sign [169])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
221 (defalias 'iso-transl-ordinal-indicator-feminine [170])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
222 (defalias 'iso-transl-angle-left [171])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
223 (defalias 'iso-transl-not-sign [172])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
224 (defalias 'iso-transl-soft-hyphen [173])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
225 (defalias 'iso-transl-registered-sign [174])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
226 (defalias 'iso-transl-macron [175])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
227 (defalias 'iso-transl-degree-sign [176])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
228 (defalias 'iso-transl-plus-or-minus-sign [177])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
229 (defalias 'iso-transl-superscript-2 [178])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
230 (defalias 'iso-transl-superscript-3 [179])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
231 (defalias 'iso-transl-acute-accent [180])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
232 (defalias 'iso-transl-micro-sign [181])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
233 (defalias 'iso-transl-pilcrow [182])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
234 (defalias 'iso-transl-middle-dot [183])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
235 (defalias 'iso-transl-cedilla [184])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
236 (defalias 'iso-transl-superscript-1 [185])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
237 (defalias 'iso-transl-ordinal-indicator-masculine [186])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
238 (defalias 'iso-transl-angle-right [187])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
239 (defalias 'iso-transl-one-quarter [188])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
240 (defalias 'iso-transl-one-half [189])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
241 (defalias 'iso-transl-three-quarters [190])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
242 (defalias 'iso-transl-inverted-question-mark [191])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
243 (defalias 'iso-transl-A-grave [192])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
244 (defalias 'iso-transl-A-acute [193])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
245 (defalias 'iso-transl-A-caret [194])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
246 (defalias 'iso-transl-A-tilde [195])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
247 (defalias 'iso-transl-A-umlaut [196])
24351
57ddc0d468f5 (iso-transl-ae): Renamed from iso-transl-e-slash.
Richard M. Stallman <rms@gnu.org>
parents: 24029
diff changeset
248 (defalias 'iso-transl-A-ring [197])
57ddc0d468f5 (iso-transl-ae): Renamed from iso-transl-e-slash.
Richard M. Stallman <rms@gnu.org>
parents: 24029
diff changeset
249 (defalias 'iso-transl-AE [198])
24029
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
250 (defalias 'iso-transl-C-cedilla [199])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
251 (defalias 'iso-transl-E-grave [200])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
252 (defalias 'iso-transl-E-acute [201])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
253 (defalias 'iso-transl-E-caret [202])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
254 (defalias 'iso-transl-E-umlaut [203])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
255 (defalias 'iso-transl-I-grave [204])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
256 (defalias 'iso-transl-I-acute [205])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
257 (defalias 'iso-transl-I-caret [206])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
258 (defalias 'iso-transl-I-umlaut [207])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
259 (defalias 'iso-transl-D-stroke [208])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
260 (defalias 'iso-transl-N-tilde [209])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
261 (defalias 'iso-transl-O-grave [210])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
262 (defalias 'iso-transl-O-acute [211])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
263 (defalias 'iso-transl-O-caret [212])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
264 (defalias 'iso-transl-O-tilde [213])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
265 (defalias 'iso-transl-O-umlaut [214])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
266 (defalias 'iso-transl-multiplication-sign [215])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
267 (defalias 'iso-transl-O-slash [216])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
268 (defalias 'iso-transl-U-grave [217])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
269 (defalias 'iso-transl-U-acute [218])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
270 (defalias 'iso-transl-U-caret [219])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
271 (defalias 'iso-transl-U-umlaut [220])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
272 (defalias 'iso-transl-Y-acute [221])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
273 (defalias 'iso-transl-THORN [222])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
274 (defalias 'iso-transl-ss [223])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
275 (defalias 'iso-transl-a-grave [224])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
276 (defalias 'iso-transl-a-acute [225])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
277 (defalias 'iso-transl-a-caret [226])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
278 (defalias 'iso-transl-a-tilde [227])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
279 (defalias 'iso-transl-a-umlaut [228])
24351
57ddc0d468f5 (iso-transl-ae): Renamed from iso-transl-e-slash.
Richard M. Stallman <rms@gnu.org>
parents: 24029
diff changeset
280 (defalias 'iso-transl-a-ring [229])
57ddc0d468f5 (iso-transl-ae): Renamed from iso-transl-e-slash.
Richard M. Stallman <rms@gnu.org>
parents: 24029
diff changeset
281 (defalias 'iso-transl-ae [230])
24029
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
282 (defalias 'iso-transl-c-cedilla [231])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
283 (defalias 'iso-transl-e-grave [232])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
284 (defalias 'iso-transl-e-acute [233])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
285 (defalias 'iso-transl-E-caret [234])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
286 (defalias 'iso-transl-e-umlaut [235])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
287 (defalias 'iso-transl-i-grave [236])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
288 (defalias 'iso-transl-i-acute [237])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
289 (defalias 'iso-transl-I-caret [238])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
290 (defalias 'iso-transl-i-umlaut [239])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
291 (defalias 'iso-transl-d-stroke [240])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
292 (defalias 'iso-transl-n-tilde [241])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
293 (defalias 'iso-transl-o-grave [242])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
294 (defalias 'iso-transl-o-acute [243])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
295 (defalias 'iso-transl-O-caret [244])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
296 (defalias 'iso-transl-o-tilde [245])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
297 (defalias 'iso-transl-o-umlaut [246])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
298 (defalias 'iso-transl-division-sign [247])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
299 (defalias 'iso-transl-o-slash [248])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
300 (defalias 'iso-transl-u-grave [249])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
301 (defalias 'iso-transl-u-acute [250])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
302 (defalias 'iso-transl-U-caret [251])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
303 (defalias 'iso-transl-u-umlaut [252])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
304 (defalias 'iso-transl-y-acute [253])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
305 (defalias 'iso-transl-thorn [254])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
306 (defalias 'iso-transl-y-umlaut [255])
71731a549704 Define a "function name" for each translation that isn't ASCII. Use
Richard M. Stallman <rms@gnu.org>
parents: 23794
diff changeset
307
10535
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
308 ;; Language-specific translation lists.
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
309 (defvar iso-transl-language-alist
10600
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
310 '(("Esperanto"
10535
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
311 ("C" . [198])
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
312 ("G" . [216])
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
313 ("H" . [166])
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
314 ("J" . [172])
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
315 ("S" . [222])
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
316 ("U" . [221])
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
317 ("c" . [230])
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
318 ("g" . [248])
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
319 ("h" . [182])
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
320 ("j" . [188])
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
321 ("s" . [254])
10600
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
322 ("u" . [253]))
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
323 ("French"
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
324 ("C" . [199])
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
325 ("c" . [231]))
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
326 ("German"
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
327 ("A" . [196])
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
328 ("O" . [214])
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
329 ("U" . [220])
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
330 ("a" . [228])
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
331 ("o" . [246])
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
332 ("s" . [223])
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
333 ("u" . [252]))
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
334 ("Portuguese"
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
335 ("C" . [199])
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
336 ("c" . [231]))
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
337 ("Spanish"
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
338 ("!" . [161])
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
339 ("?" . [191])
24797
c4896f3b9c74 (iso-transl-language-alist): Interchange n and N.
Karl Heuer <kwzh@gnu.org>
parents: 24351
diff changeset
340 ("N" . [209])
c4896f3b9c74 (iso-transl-language-alist): Interchange n and N.
Karl Heuer <kwzh@gnu.org>
parents: 24351
diff changeset
341 ("n" . [241]))))
5926
240d2ad5803c Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents: 4920
diff changeset
342
10535
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
343 (defvar iso-transl-ctl-x-8-map nil
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
344 "Keymap for C-x 8 prefix.")
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
345 (or iso-transl-ctl-x-8-map
23794
7348b1c771c0 Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents: 23672
diff changeset
346 (fset 'iso-transl-ctl-x-8-map
7348b1c771c0 Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents: 23672
diff changeset
347 (setq iso-transl-ctl-x-8-map (make-sparse-keymap))))
10535
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
348 (or key-translation-map
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
349 (setq key-translation-map (make-sparse-keymap)))
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
350 (define-key key-translation-map "\C-x8" iso-transl-ctl-x-8-map)
5926
240d2ad5803c Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents: 4920
diff changeset
351
10535
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
352 ;; For each entry in the alist, we'll make up to three ways to generate
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
353 ;; the character in question: the prefix `C-x 8'; the ALT modifier on
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
354 ;; the first key of the sequence; and (if applicable) replacing the first
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
355 ;; key of the sequence with the corresponding dead key. For example, a
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
356 ;; character associated with the string "~n" can be input with `C-x 8 ~ n'
10600
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
357 ;; or `Alt-~ n' or `mute-asciitilde n'.
10535
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
358 (defun iso-transl-define-keys (alist)
16142
e7fb56cda7cc (iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents: 14696
diff changeset
359 (while alist
22842
2398b380208e (iso-transl-define-keys): Don't test enable-multibyte-characters; use
Richard M. Stallman <rms@gnu.org>
parents: 20859
diff changeset
360 (let ((translated-vec (cdr (car alist))))
17792
fa666ca256c6 (iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents: 16175
diff changeset
361 (define-key iso-transl-ctl-x-8-map (car (car alist)) translated-vec)
fa666ca256c6 (iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents: 16175
diff changeset
362 (let ((inchar (aref (car (car alist)) 0))
fa666ca256c6 (iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents: 16175
diff changeset
363 (vec (vconcat (car (car alist))))
fa666ca256c6 (iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents: 16175
diff changeset
364 (tail iso-transl-dead-key-alist))
fa666ca256c6 (iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents: 16175
diff changeset
365 (aset vec 0 (logior (aref vec 0) ?\A-\^@))
fa666ca256c6 (iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents: 16175
diff changeset
366 (define-key key-translation-map vec translated-vec)
fa666ca256c6 (iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents: 16175
diff changeset
367 (define-key isearch-mode-map (vector (aref vec 0)) nil)
fa666ca256c6 (iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents: 16175
diff changeset
368 (while tail
fa666ca256c6 (iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents: 16175
diff changeset
369 (if (eq (car (car tail)) inchar)
fa666ca256c6 (iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents: 16175
diff changeset
370 (let ((deadvec (copy-sequence vec))
fa666ca256c6 (iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents: 16175
diff changeset
371 (deadkey (cdr (car tail))))
fa666ca256c6 (iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents: 16175
diff changeset
372 (aset deadvec 0 deadkey)
fa666ca256c6 (iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents: 16175
diff changeset
373 (define-key isearch-mode-map (vector deadkey) nil)
fa666ca256c6 (iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents: 16175
diff changeset
374 (define-key key-translation-map deadvec translated-vec)))
fa666ca256c6 (iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents: 16175
diff changeset
375 (setq tail (cdr tail)))))
16145
4f3df9697fe0 (iso-transl-define-keys): Fix paren error in prev change.
Richard M. Stallman <rms@gnu.org>
parents: 16142
diff changeset
376 (setq alist (cdr alist))))
5926
240d2ad5803c Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents: 4920
diff changeset
377
10535
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
378 (defun iso-transl-set-language (lang)
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
379 (interactive (list (let ((completion-ignore-case t))
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
380 (completing-read "Set which language? "
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
381 iso-transl-language-alist nil t))))
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
382 (iso-transl-define-keys (cdr (assoc lang iso-transl-language-alist))))
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
383
10523
2303cb9ce523 (iso-transl-char-map): Add elements for mute-acute, etc.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
384
10535
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
385 ;; The standard mapping comes automatically. You can partially overlay it
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
386 ;; with a language-specific mapping by using `M-x iso-transl-set-language'.
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
387 (iso-transl-define-keys iso-transl-char-map)
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
388
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
389 (define-key isearch-mode-map "\C-x" nil)
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
390 (define-key isearch-mode-map [?\C-x t] 'isearch-other-control-char)
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
391 (define-key isearch-mode-map "\C-x8" nil)
042525452755 (iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents: 10523
diff changeset
392
4884
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
393
4885
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
394 (provide 'iso-transl)
4884
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
395
4885
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
396 ;;; iso-transl.el ends here