Mercurial > emacs
annotate lisp/international/iso-transl.el @ 23702:88ea29425911
(ediff-even-diff-face-A): Fix spelling.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Thu, 12 Nov 1998 02:00:33 +0000 |
parents | 2ae7f6e850db |
children | 7348b1c771c0 |
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 |
4884 | 34 ;;; Code: |
35 | |
23672 | 36 ;;; Provide some binding for startup: |
37 ;;;###autoload (or key-translation-map (setq key-translation-map (make-sparse-keymap))) | |
38 ;;;###autoload (define-key key-translation-map "\C-x8" iso-transl-ctl-x-8-map) | |
39 ;;;###autoload (autoload 'iso-transl-ctl-x-8-map "iso-transl" "Keymap for C-x 8 prefix." t 'keymap) | |
40 | |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
41 (defvar iso-transl-dead-key-alist |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
42 '((?\' . mute-acute) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
43 (?\` . mute-grave) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
44 (?\" . mute-diaeresis) |
16142
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
45 (?^ . mute-asciicircum) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
46 (?\~ . mute-asciitilde) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
47 (?\' . dead-acute) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
48 (?\` . dead-grave) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
49 (?\" . dead-diaeresis) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
50 (?^ . dead-asciicircum) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
51 (?\~ . dead-asciitilde) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
52 (?^ . dead-circum) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
53 (?^ . dead-circumflex) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
54 (?\~ . dead-tilde) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
55 ;; 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
|
56 ;; 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
|
57 (?\' . S-dead-acute) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
58 (?\` . S-dead-grave) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
59 (?\" . S-dead-diaeresis) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
60 (?^ . S-dead-asciicircum) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
61 (?\~ . S-dead-asciitilde) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
62 (?^ . S-dead-circum) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
63 (?^ . S-dead-circumflex) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
64 (?\~ . S-dead-tilde)) |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
65 "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
|
66 |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
67 ;; 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
|
68 ;; 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
|
69 ;; language-specific table might override the short form for its own use. |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
70 (defvar iso-transl-char-map |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
71 '(("* " . [160])(" " . [160]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
72 ("*!" . [161])("!" . [161]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
73 ("\"\"" . [168]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
74 ("\"A" . [196]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
75 ("\"E" . [203]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
76 ("\"I" . [207]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
77 ("\"O" . [214]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
78 ("\"U" . [220]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
79 ("\"a" . [228]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
80 ("\"e" . [235]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
81 ("\"i" . [239]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
82 ("\"o" . [246]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
83 ("\"s" . [223]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
84 ("\"u" . [252]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
85 ("\"y" . [255]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
86 ("''" . [180]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
87 ("'A" . [193]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
88 ("'E" . [201]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
89 ("'I" . [205]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
90 ("'O" . [211]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
91 ("'U" . [218]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
92 ("'Y" . [221]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
93 ("'a" . [225]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
94 ("'e" . [233]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
95 ("'i" . [237]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
96 ("'o" . [243]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
97 ("'u" . [250]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
98 ("'y" . [253]) |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
99 ("*$" . [164])("$" . [164]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
100 ("*+" . [177])("+" . [177]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
101 (",," . [184]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
102 (",C" . [199]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
103 (",c" . [231]) |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
104 ("*-" . [173])("-" . [173]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
105 ("*." . [183])("." . [183]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
106 ("//" . [247]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
107 ("/A" . [197]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
108 ("/E" . [198]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
109 ("/O" . [216]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
110 ("/a" . [229]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
111 ("/e" . [230]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
112 ("/o" . [248]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
113 ("1/2" . [189]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
114 ("1/4" . [188]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
115 ("3/4" . [190]) |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
116 ("*<" . [171])("<" . [171]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
117 ("*=" . [175])("=" . [175]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
118 ("*>" . [187])(">" . [187]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
119 ("*?" . [191])("?" . [191]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
120 ("*C" . [169])("C" . [169]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
121 ("*L" . [163])("L" . [163]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
122 ("*P" . [182])("P" . [182]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
123 ("*R" . [174])("R" . [174]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
124 ("*S" . [167])("S" . [167]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
125 ("*Y" . [165])("Y" . [165]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
126 ("^1" . [185]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
127 ("^2" . [178]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
128 ("^3" . [179]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
129 ("^A" . [194]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
130 ("^E" . [202]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
131 ("^I" . [206]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
132 ("^O" . [212]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
133 ("^U" . [219]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
134 ("^a" . [226]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
135 ("^e" . [234]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
136 ("^i" . [238]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
137 ("^o" . [244]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
138 ("^u" . [251]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
139 ("_a" . [170]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
140 ("_o" . [186]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
141 ("`A" . [192]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
142 ("`E" . [200]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
143 ("`I" . [204]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
144 ("`O" . [210]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
145 ("`U" . [217]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
146 ("`a" . [224]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
147 ("`e" . [232]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
148 ("`i" . [236]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
149 ("`o" . [242]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
150 ("`u" . [249]) |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
151 ("*c" . [162])("c" . [162]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
152 ("*o" . [176])("o" . [176]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
153 ("*u" . [181])("u" . [181]) |
12474
d3223d946163
(iso-transl-char-map): Treat m, *m like u and *u.
Richard M. Stallman <rms@gnu.org>
parents:
10600
diff
changeset
|
154 ("*m" . [181])("m" . [181]) |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
155 ("*x" . [215])("x" . [215]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
156 ("*|" . [166])("|" . [166]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
157 ("~A" . [195]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
158 ("~D" . [208]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
159 ("~N" . [209]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
160 ("~O" . [213]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
161 ("~T" . [222]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
162 ("~a" . [227]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
163 ("~d" . [240]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
164 ("~n" . [241]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
165 ("~o" . [245]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
166 ("~t" . [254]) |
16175
fadfed208516
(iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents:
16145
diff
changeset
|
167 ("~~" . [172]) |
fadfed208516
(iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents:
16145
diff
changeset
|
168 ("' " . "'") |
fadfed208516
(iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents:
16145
diff
changeset
|
169 ("` " . "`") |
fadfed208516
(iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents:
16145
diff
changeset
|
170 ("\" " . "\"") |
fadfed208516
(iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents:
16145
diff
changeset
|
171 ("^ " . "^") |
fadfed208516
(iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents:
16145
diff
changeset
|
172 ("~ " . "~")) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
173 "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
|
174 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
|
175 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
|
176 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
|
177 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
178 ;; Language-specific translation lists. |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
179 (defvar iso-transl-language-alist |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
180 '(("Esperanto" |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
181 ("C" . [198]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
182 ("G" . [216]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
183 ("H" . [166]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
184 ("J" . [172]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
185 ("S" . [222]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
186 ("U" . [221]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
187 ("c" . [230]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
188 ("g" . [248]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
189 ("h" . [182]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
190 ("j" . [188]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
191 ("s" . [254]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
192 ("u" . [253])) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
193 ("French" |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
194 ("C" . [199]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
195 ("c" . [231])) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
196 ("German" |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
197 ("A" . [196]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
198 ("O" . [214]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
199 ("U" . [220]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
200 ("a" . [228]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
201 ("o" . [246]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
202 ("s" . [223]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
203 ("u" . [252])) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
204 ("Portuguese" |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
205 ("C" . [199]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
206 ("c" . [231])) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
207 ("Spanish" |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
208 ("!" . [161]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
209 ("?" . [191]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
210 ("N" . [241]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
211 ("n" . [209])))) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
212 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
213 (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
|
214 "Keymap for C-x 8 prefix.") |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
215 (or iso-transl-ctl-x-8-map |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
216 (setq iso-transl-ctl-x-8-map (make-sparse-keymap))) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
217 (or key-translation-map |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
218 (setq key-translation-map (make-sparse-keymap))) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
219 (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
|
220 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
221 ;; 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
|
222 ;; 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
|
223 ;; 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
|
224 ;; 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
|
225 ;; 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
|
226 ;; 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
|
227 (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
|
228 (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
|
229 (let ((translated-vec (cdr (car alist)))) |
17792
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
230 (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
|
231 (let ((inchar (aref (car (car alist)) 0)) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
232 (vec (vconcat (car (car alist)))) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
233 (tail iso-transl-dead-key-alist)) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
234 (aset vec 0 (logior (aref vec 0) ?\A-\^@)) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
235 (define-key key-translation-map vec translated-vec) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
236 (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
|
237 (while tail |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
238 (if (eq (car (car tail)) inchar) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
239 (let ((deadvec (copy-sequence vec)) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
240 (deadkey (cdr (car tail)))) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
241 (aset deadvec 0 deadkey) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
242 (define-key isearch-mode-map (vector deadkey) nil) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
243 (define-key key-translation-map deadvec translated-vec))) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
244 (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
|
245 (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
|
246 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
247 (defun iso-transl-set-language (lang) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
248 (interactive (list (let ((completion-ignore-case t)) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
249 (completing-read "Set which language? " |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
250 iso-transl-language-alist nil t)))) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
251 (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
|
252 |
10523
2303cb9ce523
(iso-transl-char-map): Add elements for mute-acute, etc.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
253 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
254 ;; 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
|
255 ;; 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
|
256 (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
|
257 |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
258 (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
|
259 (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
|
260 (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
|
261 |
4884 | 262 |
4885
fe8090050628
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
4884
diff
changeset
|
263 (provide 'iso-transl) |
4884 | 264 |
4885
fe8090050628
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
4884
diff
changeset
|
265 ;;; iso-transl.el ends here |