Mercurial > emacs
annotate lisp/international/iso-transl.el @ 11088:e88e9a016cfa
(syms_of_window): Fix missing \n\.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 22 Mar 1995 17:44:18 +0000 |
parents | 45bbb119e1a3 |
children | d3223d946163 |
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 | |
22 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
23 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
24 | |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
25 ;;; Commentary: |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
26 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
27 ;; 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
|
28 ;; 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
|
29 ;; 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
|
30 ;; 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
|
31 ;; `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
|
32 |
4884 | 33 ;;; Code: |
34 | |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
35 (defvar iso-transl-dead-key-alist |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
36 '((?\' . mute-acute) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
37 (?\` . mute-grave) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
38 (?\" . mute-diaeresis) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
39 (?\^ . mute-asciicircum) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
40 (?\~ . mute-asciitilde)) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
41 "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
|
42 |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
43 ;; 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
|
44 ;; 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
|
45 ;; 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
|
46 (defvar iso-transl-char-map |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
47 '(("* " . [160])(" " . [160]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
48 ("*!" . [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
|
49 ("\"\"" . [168]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
50 ("\"A" . [196]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
51 ("\"E" . [203]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
52 ("\"I" . [207]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
53 ("\"O" . [214]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
54 ("\"U" . [220]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
55 ("\"a" . [228]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
56 ("\"e" . [235]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
57 ("\"i" . [239]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
58 ("\"o" . [246]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
59 ("\"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
|
60 ("\"u" . [252]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
61 ("\"y" . [255]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
62 ("''" . [180]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
63 ("'A" . [193]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
64 ("'E" . [201]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
65 ("'I" . [205]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
66 ("'O" . [211]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
67 ("'U" . [218]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
68 ("'Y" . [221]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
69 ("'a" . [225]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
70 ("'e" . [233]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
71 ("'i" . [237]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
72 ("'o" . [243]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
73 ("'u" . [250]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
74 ("'y" . [253]) |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
75 ("*$" . [164])("$" . [164]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
76 ("*+" . [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
|
77 (",," . [184]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
78 (",C" . [199]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
79 (",c" . [231]) |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
80 ("*-" . [173])("-" . [173]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
81 ("*." . [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
|
82 ("//" . [247]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
83 ("/A" . [197]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
84 ("/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
|
85 ("/O" . [216]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
86 ("/a" . [229]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
87 ("/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
|
88 ("/o" . [248]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
89 ("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
|
90 ("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
|
91 ("3/4" . [190]) |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
92 ("*<" . [171])("<" . [171]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
93 ("*=" . [175])("=" . [175]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
94 ("*>" . [187])(">" . [187]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
95 ("*?" . [191])("?" . [191]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
96 ("*C" . [169])("C" . [169]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
97 ("*L" . [163])("L" . [163]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
98 ("*P" . [182])("P" . [182]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
99 ("*R" . [174])("R" . [174]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
100 ("*S" . [167])("S" . [167]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
101 ("*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
|
102 ("^1" . [185]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
103 ("^2" . [178]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
104 ("^3" . [179]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
105 ("^A" . [194]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
106 ("^E" . [202]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
107 ("^I" . [206]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
108 ("^O" . [212]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
109 ("^U" . [219]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
110 ("^a" . [226]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
111 ("^e" . [234]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
112 ("^i" . [238]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
113 ("^o" . [244]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
114 ("^u" . [251]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
115 ("_a" . [170]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
116 ("_o" . [186]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
117 ("`A" . [192]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
118 ("`E" . [200]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
119 ("`I" . [204]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
120 ("`O" . [210]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
121 ("`U" . [217]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
122 ("`a" . [224]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
123 ("`e" . [232]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
124 ("`i" . [236]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
125 ("`o" . [242]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
126 ("`u" . [249]) |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
127 ("*c" . [162])("c" . [162]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
128 ("*o" . [176])("o" . [176]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
129 ("*u" . [181])("u" . [181]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
130 ("*x" . [215])("x" . [215]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
131 ("*|" . [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
|
132 ("~A" . [195]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
133 ("~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
|
134 ("~N" . [209]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
135 ("~O" . [213]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
136 ("~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
|
137 ("~a" . [227]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
138 ("~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
|
139 ("~n" . [241]) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
140 ("~o" . [245]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
141 ("~t" . [254]) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
142 ("~~" . [172])) |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
143 "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
|
144 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
|
145 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
|
146 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
|
147 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
148 ;; Language-specific translation lists. |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
149 (defvar iso-transl-language-alist |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
150 '(("Esperanto" |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
151 ("C" . [198]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
152 ("G" . [216]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
153 ("H" . [166]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
154 ("J" . [172]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
155 ("S" . [222]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
156 ("U" . [221]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
157 ("c" . [230]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
158 ("g" . [248]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
159 ("h" . [182]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
160 ("j" . [188]) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
161 ("s" . [254]) |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
162 ("u" . [253])) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
163 ("French" |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
164 ("C" . [199]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
165 ("c" . [231])) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
166 ("German" |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
167 ("A" . [196]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
168 ("O" . [214]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
169 ("U" . [220]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
170 ("a" . [228]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
171 ("o" . [246]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
172 ("s" . [223]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
173 ("u" . [252])) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
174 ("Portuguese" |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
175 ("C" . [199]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
176 ("c" . [231])) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
177 ("Spanish" |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
178 ("!" . [161]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
179 ("?" . [191]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
180 ("N" . [241]) |
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
181 ("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
|
182 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
183 (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
|
184 "Keymap for C-x 8 prefix.") |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
185 (or iso-transl-ctl-x-8-map |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
186 (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
|
187 (or key-translation-map |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
188 (setq key-translation-map (make-sparse-keymap))) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
189 (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
|
190 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
191 ;; 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
|
192 ;; 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
|
193 ;; 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
|
194 ;; 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
|
195 ;; 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
|
196 ;; 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
|
197 (defun iso-transl-define-keys (alist) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
198 (while alist |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
199 (define-key iso-transl-ctl-x-8-map (car (car alist)) (cdr (car alist))) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
200 (let ((vec (vconcat (car (car alist)))) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
201 (deadpair (assq (aref (car (car alist)) 0) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
202 iso-transl-dead-key-alist))) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
203 (aset vec 0 (logior (aref vec 0) ?\A-\^@)) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
204 (define-key key-translation-map vec (cdr (car alist))) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
205 (define-key isearch-mode-map (vector (aref vec 0)) nil) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
206 (if deadpair |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
207 (let ((deadvec (copy-sequence vec))) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
208 (aset deadvec 0 (cdr deadpair)) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
209 (define-key isearch-mode-map (vector (aref deadvec 0)) nil) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
210 (define-key key-translation-map deadvec (cdr (car alist)))))) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
211 (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
|
212 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
213 (defun iso-transl-set-language (lang) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
214 (interactive (list (let ((completion-ignore-case t)) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
215 (completing-read "Set which language? " |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
216 iso-transl-language-alist nil t)))) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
217 (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
|
218 |
10523
2303cb9ce523
(iso-transl-char-map): Add elements for mute-acute, etc.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
219 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
220 ;; 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
|
221 ;; 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
|
222 (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
|
223 |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
224 (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
|
225 (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
|
226 (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
|
227 |
4884 | 228 |
4885
fe8090050628
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
4884
diff
changeset
|
229 (provide 'iso-transl) |
4884 | 230 |
4885
fe8090050628
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
4884
diff
changeset
|
231 ;;; iso-transl.el ends here |