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