Mercurial > emacs
annotate lisp/international/iso-transl.el @ 32654:ff2336f92cd0
*** empty log message ***
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Thu, 19 Oct 2000 10:46:51 +0000 |
parents | 543519d190b7 |
children | 253f761ad37b |
rev | line source |
---|---|
4920 | 1 ;;; iso-transl.el --- keyboard input definitions for ISO 8859/1. |
4884 | 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 | 4 |
5 ;; Author: Howard Gayle | |
6 ;; Maintainer: FSF | |
7 ;; Keywords: i18n | |
8 | |
9 ;; This file is part of GNU Emacs. | |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
14169 | 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
24 ;; Boston, MA 02111-1307, USA. | |
4884 | 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 | 34 ;; C-x 8 is set up to autoload this package, |
35 ;; but Alt keys and dead accent keys are only defined | |
36 ;; once you have loaded the package. It is nontrivial | |
37 ;; to make all of the Alt keys autoload, and it is not clear | |
38 ;; that the dead accent keys SHOULD autoload this package. | |
39 | |
4884 | 40 ;;; Code: |
41 | |
23672 | 42 ;;; Provide some binding for startup: |
43 ;;;###autoload (or key-translation-map (setq key-translation-map (make-sparse-keymap))) | |
23794 | 44 ;;;###autoload (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map) |
23672 | 45 ;;;###autoload (autoload 'iso-transl-ctl-x-8-map "iso-transl" "Keymap for C-x 8 prefix." t 'keymap) |
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 | 346 (fset 'iso-transl-ctl-x-8-map |
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 | 393 |
4885
fe8090050628
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
4884
diff
changeset
|
394 (provide 'iso-transl) |
4884 | 395 |
4885
fe8090050628
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
4884
diff
changeset
|
396 ;;; iso-transl.el ends here |