Mercurial > emacs
annotate lisp/international/iso-transl.el @ 67517:527e6fc032c7
(load-with-code-conversion): Bind deactivate-mark.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 12 Dec 2005 05:11:57 +0000 |
parents | 18a818a2ee7c |
children | 43cc94d955c2 6c13700d1c13 f9a65d7ebd29 |
rev | line source |
---|---|
41877 | 1 ;;; iso-transl.el --- keyboard input definitions for ISO 8859-1 -*- coding: iso-8859-1 -*- |
4884 | 2 |
62274 | 3 ;; Copyright (C) 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2001 |
4 ;; Free Software Foundation, Inc. | |
4884 | 5 |
6 ;; Author: Howard Gayle | |
7 ;; Maintainer: FSF | |
8 ;; Keywords: i18n | |
9 | |
10 ;; This file is part of GNU Emacs. | |
11 | |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13 ;; it under the terms of the GNU General Public License as published by | |
14 ;; the Free Software Foundation; either version 2, or (at your option) | |
15 ;; any later version. | |
16 | |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
14169 | 23 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
25 ;; Boston, MA 02110-1301, USA. | |
4884 | 26 |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
27 ;;; Commentary: |
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
28 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
29 ;; 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
|
30 ;; 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
|
31 ;; 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
|
32 ;; 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
|
33 ;; `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
|
34 |
24802 | 35 ;; C-x 8 is set up to autoload this package, |
36 ;; but Alt keys and dead accent keys are only defined | |
37 ;; once you have loaded the package. It is nontrivial | |
38 ;; to make all of the Alt keys autoload, and it is not clear | |
39 ;; that the dead accent keys SHOULD autoload this package. | |
40 | |
4884 | 41 ;;; Code: |
42 | |
23672 | 43 ;;; Provide some binding for startup: |
44 ;;;###autoload (or key-translation-map (setq key-translation-map (make-sparse-keymap))) | |
23794 | 45 ;;;###autoload (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map) |
23672 | 46 ;;;###autoload (autoload 'iso-transl-ctl-x-8-map "iso-transl" "Keymap for C-x 8 prefix." t 'keymap) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
42392
diff
changeset
|
47 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
48 (defvar iso-transl-dead-key-alist |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
49 '((?\' . mute-acute) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
50 (?\` . mute-grave) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
51 (?\" . mute-diaeresis) |
16142
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
52 (?^ . mute-asciicircum) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
53 (?\~ . mute-asciitilde) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
54 (?\' . dead-acute) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
55 (?\` . dead-grave) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
56 (?\" . dead-diaeresis) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
57 (?^ . dead-asciicircum) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
58 (?\~ . dead-asciitilde) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
59 (?^ . dead-circum) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
60 (?^ . dead-circumflex) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
61 (?\~ . dead-tilde) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
62 ;; 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
|
63 ;; 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
|
64 (?\' . S-dead-acute) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
65 (?\` . S-dead-grave) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
66 (?\" . S-dead-diaeresis) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
67 (?^ . S-dead-asciicircum) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
68 (?\~ . S-dead-asciitilde) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
69 (?^ . S-dead-circum) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
70 (?^ . S-dead-circumflex) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
71 (?\~ . S-dead-tilde)) |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
72 "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
|
73 |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
74 ;; 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
|
75 ;; 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
|
76 ;; 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
|
77 |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
78 (defvar iso-transl-char-map |
42391
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
79 '(("* " . [? ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
80 (" " . [? ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
81 ("*!" . [?¡]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
82 ("!" . [?¡]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
83 ("\"\"" . [?¨]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
84 ("\"A" . [?Ä]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
85 ("\"E" . [?Ë]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
86 ("\"I" . [?Ï]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
87 ("\"O" . [?Ö]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
88 ("\"U" . [?Ü]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
89 ("\"a" . [?ä]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
90 ("\"e" . [?ë]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
91 ("\"i" . [?ï]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
92 ("\"o" . [?ö]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
93 ("\"s" . [?ß]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
94 ("\"u" . [?ü]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
95 ("\"y" . [?ÿ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
96 ("''" . [?´]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
97 ("'A" . [?Á]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
98 ("'E" . [?É]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
99 ("'I" . [?Í]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
100 ("'O" . [?Ó]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
101 ("'U" . [?Ú]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
102 ("'Y" . [?Ý]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
103 ("'a" . [?á]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
104 ("'e" . [?é]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
105 ("'i" . [?í]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
106 ("'o" . [?ó]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
107 ("'u" . [?ú]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
108 ("'y" . [?ý]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
109 ("*$" . [?¤]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
110 ("$" . [?¤]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
111 ("*+" . [?±]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
112 ("+" . [?±]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
113 (",," . [?¸]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
114 (",C" . [?Ç]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
115 (",c" . [?ç]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
116 ("*-" . [?]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
117 ("-" . [?]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
118 ("*." . [?·]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
119 ("." . [?·]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
120 ("//" . [?÷]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
121 ("/A" . [?Å]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
122 ("/E" . [?Æ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
123 ("/O" . [?Ø]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
124 ("/a" . [?å]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
125 ("/e" . [?æ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
126 ("/o" . [?ø]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
127 ("1/2" . [?½]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
128 ("1/4" . [?¼]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
129 ("3/4" . [?¾]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
130 ("*<" . [?«]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
131 ("<" . [?«]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
132 ("*=" . [?¯]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
133 ("=" . [?¯]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
134 ("*>" . [?»]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
135 (">" . [?»]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
136 ("*?" . [?¿]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
137 ("?" . [?¿]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
138 ("*C" . [?©]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
139 ("C" . [?©]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
140 ("*L" . [?£]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
141 ("L" . [?£]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
142 ("*P" . [?¶]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
143 ("P" . [?¶]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
144 ("*R" . [?®]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
145 ("R" . [?®]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
146 ("*S" . [?§]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
147 ("S" . [?§]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
148 ("*Y" . [?¥]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
149 ("Y" . [?¥]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
150 ("^1" . [?¹]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
151 ("^2" . [?²]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
152 ("^3" . [?³]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
153 ("^A" . [?Â]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
154 ("^E" . [?Ê]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
155 ("^I" . [?Î]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
156 ("^O" . [?Ô]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
157 ("^U" . [?Û]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
158 ("^a" . [?â]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
159 ("^e" . [?ê]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
160 ("^i" . [?î]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
161 ("^o" . [?ô]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
162 ("^u" . [?û]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
163 ("_a" . [?ª]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
164 ("_o" . [?º]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
165 ("`A" . [?À]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
166 ("`E" . [?È]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
167 ("`I" . [?Ì]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
168 ("`O" . [?Ò]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
169 ("`U" . [?Ù]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
170 ("`a" . [?à]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
171 ("`e" . [?è]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
172 ("`i" . [?ì]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
173 ("`o" . [?ò]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
174 ("`u" . [?ù]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
175 ("*c" . [?¢]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
176 ("c" . [?¢]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
177 ("*o" . [?°]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
178 ("o" . [?°]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
179 ("*u" . [?µ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
180 ("u" . [?µ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
181 ("*m" . [?µ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
182 ("m" . [?µ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
183 ("*x" . [?×]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
184 ("x" . [?×]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
185 ("*|" . [?¦]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
186 ("|" . [?¦]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
187 ("~A" . [?Ã]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
188 ("~D" . [?Ð]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
189 ("~N" . [?Ñ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
190 ("~O" . [?Õ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
191 ("~T" . [?Þ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
192 ("~a" . [?ã]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
193 ("~d" . [?ð]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
194 ("~n" . [?ñ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
195 ("~o" . [?õ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
196 ("~t" . [?þ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
197 ("~~" . [?¬]) |
16175
fadfed208516
(iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents:
16145
diff
changeset
|
198 ("' " . "'") |
fadfed208516
(iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents:
16145
diff
changeset
|
199 ("` " . "`") |
fadfed208516
(iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents:
16145
diff
changeset
|
200 ("\" " . "\"") |
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 ("~ " . "~")) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
203 "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
|
204 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
|
205 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
|
206 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
|
207 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
208 ;; Language-specific translation lists. |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
209 (defvar iso-transl-language-alist |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
210 '(("Esperanto" |
41877 | 211 ("C" . [?Æ]) |
212 ("G" . [?Ø]) | |
213 ("H" . [?¦]) | |
214 ("J" . [?¬]) | |
215 ("S" . [?Þ]) | |
216 ("U" . [?Ý]) | |
217 ("c" . [?æ]) | |
218 ("g" . [?ø]) | |
219 ("h" . [?¶]) | |
220 ("j" . [?¼]) | |
221 ("s" . [?þ]) | |
222 ("u" . [?ý])) | |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
223 ("French" |
41877 | 224 ("C" . [?Ç]) |
225 ("c" . [?ç])) | |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
226 ("German" |
41877 | 227 ("A" . [?Ä]) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
42392
diff
changeset
|
228 ("O" . [?Ö]) |
41877 | 229 ("U" . [?Ü]) |
230 ("a" . [?ä]) | |
231 ("o" . [?ö]) | |
232 ("s" . [?ß]) | |
233 ("u" . [?ü])) | |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
234 ("Portuguese" |
41877 | 235 ("C" . [?Ç]) |
236 ("c" . [?ç])) | |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
237 ("Spanish" |
41877 | 238 ("!" . [?¡]) |
239 ("?" . [?¿]) | |
240 ("N" . [?Ñ]) | |
241 ("n" . [?ñ])))) | |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
242 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
243 (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
|
244 "Keymap for C-x 8 prefix.") |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
245 (or iso-transl-ctl-x-8-map |
23794 | 246 (fset 'iso-transl-ctl-x-8-map |
247 (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
|
248 (or key-translation-map |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
249 (setq key-translation-map (make-sparse-keymap))) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
250 (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
|
251 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
252 ;; 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
|
253 ;; 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
|
254 ;; 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
|
255 ;; 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
|
256 ;; 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
|
257 ;; 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
|
258 (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
|
259 (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
|
260 (let ((translated-vec (cdr (car alist)))) |
17792
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
261 (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
|
262 (let ((inchar (aref (car (car alist)) 0)) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
263 (vec (vconcat (car (car alist)))) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
264 (tail iso-transl-dead-key-alist)) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
265 (aset vec 0 (logior (aref vec 0) ?\A-\^@)) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
266 (define-key key-translation-map vec translated-vec) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
267 (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
|
268 (while tail |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
269 (if (eq (car (car tail)) inchar) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
270 (let ((deadvec (copy-sequence vec)) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
271 (deadkey (cdr (car tail)))) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
272 (aset deadvec 0 deadkey) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
273 (define-key isearch-mode-map (vector deadkey) nil) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
274 (define-key key-translation-map deadvec translated-vec))) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
275 (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
|
276 (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
|
277 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
278 (defun iso-transl-set-language (lang) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
279 (interactive (list (let ((completion-ignore-case t)) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
280 (completing-read "Set which language? " |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
281 iso-transl-language-alist nil t)))) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
282 (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
|
283 |
10523
2303cb9ce523
(iso-transl-char-map): Add elements for mute-acute, etc.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
284 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
285 ;; 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
|
286 ;; 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
|
287 (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
|
288 |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
289 (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
|
290 (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
|
291 (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
|
292 |
4884 | 293 |
4885
fe8090050628
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
4884
diff
changeset
|
294 (provide 'iso-transl) |
4884 | 295 |
52401 | 296 ;;; arch-tag: 034cfedf-7ebd-461d-bcd0-5c79e6dc0b61 |
4885
fe8090050628
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
4884
diff
changeset
|
297 ;;; iso-transl.el ends here |