Mercurial > emacs
annotate lisp/international/iso-transl.el @ 102615:6192629dc5c9
* minibuf.texi (Basic Completion): Note that
read-file-name-completion-ignore-case and
read-buffer-completion-ignore-case can override
completion-ignore-case.
(Minibuffer Completion): Document completing-read changes.
(Completion Commands): Avoid mentioning partial completion mode.
Document minibuffer-completion-confirm changes, and
minibuffer-confirm-exit-commands.
(High-Level Completion): Document new require-match behavior for
read-buffer. Document read-buffer-completion-ignore-case.
(Reading File Names): Document new require-match behavior for
read-file-name.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Tue, 17 Mar 2009 04:54:03 +0000 |
parents | a9dc0e7c3f2b |
children | 1d1d5d9bd884 |
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 |
100908 | 4 ;; 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 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 | |
94664
889bc336b89b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
12 ;; GNU Emacs is free software: you can redistribute it and/or modify |
4884 | 13 ;; it under the terms of the GNU General Public License as published by |
94664
889bc336b89b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
14 ;; the Free Software Foundation, either version 3 of the License, or |
889bc336b89b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
15 ;; (at your option) any later version. |
4884 | 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 | |
94664
889bc336b89b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
4884 | 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 |
24802 | 33 ;; C-x 8 is set up to autoload this package, |
34 ;; but Alt keys and dead accent keys are only defined | |
35 ;; once you have loaded the package. It is nontrivial | |
36 ;; to make all of the Alt keys autoload, and it is not clear | |
37 ;; that the dead accent keys SHOULD autoload this package. | |
38 | |
4884 | 39 ;;; Code: |
40 | |
23672 | 41 ;;; Provide some binding for startup: |
42 ;;;###autoload (or key-translation-map (setq key-translation-map (make-sparse-keymap))) | |
23794 | 43 ;;;###autoload (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map) |
23672 | 44 ;;;###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
|
45 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
46 (defvar iso-transl-dead-key-alist |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
47 '((?\' . mute-acute) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
48 (?\` . mute-grave) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
49 (?\" . mute-diaeresis) |
16142
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
50 (?^ . mute-asciicircum) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
51 (?\~ . mute-asciitilde) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
52 (?\' . dead-acute) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
53 (?\` . dead-grave) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
54 (?\" . dead-diaeresis) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
55 (?^ . dead-asciicircum) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
56 (?\~ . dead-asciitilde) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
57 (?^ . dead-circum) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
58 (?^ . dead-circumflex) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
59 (?\~ . dead-tilde) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
60 ;; 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
|
61 ;; 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
|
62 (?\' . S-dead-acute) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
63 (?\` . S-dead-grave) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
64 (?\" . S-dead-diaeresis) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
65 (?^ . S-dead-asciicircum) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
66 (?\~ . S-dead-asciitilde) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
67 (?^ . S-dead-circum) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
68 (?^ . S-dead-circumflex) |
e7fb56cda7cc
(iso-transl-dead-key-alist): Add dead-...
Richard M. Stallman <rms@gnu.org>
parents:
14696
diff
changeset
|
69 (?\~ . S-dead-tilde)) |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
70 "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
|
71 |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
72 ;; 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
|
73 ;; 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
|
74 ;; 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
|
75 |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
76 (defvar iso-transl-char-map |
42391
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
77 '(("* " . [? ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
78 (" " . [? ]) |
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 ("\"A" . [?Ä]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
83 ("\"E" . [?Ë]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
84 ("\"I" . [?Ï]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
85 ("\"O" . [?Ö]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
86 ("\"U" . [?Ü]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
87 ("\"a" . [?ä]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
88 ("\"e" . [?ë]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
89 ("\"i" . [?ï]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
90 ("\"o" . [?ö]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
91 ("\"s" . [?ß]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
92 ("\"u" . [?ü]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
93 ("\"y" . [?ÿ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
94 ("''" . [?´]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
95 ("'A" . [?Á]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
96 ("'E" . [?É]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
97 ("'I" . [?Í]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
98 ("'O" . [?Ó]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
99 ("'U" . [?Ú]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
100 ("'Y" . [?Ý]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
101 ("'a" . [?á]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
102 ("'e" . [?é]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
103 ("'i" . [?í]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
104 ("'o" . [?ó]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
105 ("'u" . [?ú]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
106 ("'y" . [?ý]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
107 ("*$" . [?¤]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
108 ("$" . [?¤]) |
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 (",C" . [?Ç]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
113 (",c" . [?ç]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
114 ("*-" . [?]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
115 ("-" . [?]) |
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 ("/A" . [?Å]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
120 ("/E" . [?Æ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
121 ("/O" . [?Ø]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
122 ("/a" . [?å]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
123 ("/e" . [?æ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
124 ("/o" . [?ø]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
125 ("1/2" . [?½]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
126 ("1/4" . [?¼]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
127 ("3/4" . [?¾]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
128 ("*<" . [?«]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
129 ("<" . [?«]) |
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 ("*C" . [?©]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
137 ("C" . [?©]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
138 ("*L" . [?£]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
139 ("L" . [?£]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
140 ("*P" . [?¶]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
141 ("P" . [?¶]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
142 ("*R" . [?®]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
143 ("R" . [?®]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
144 ("*S" . [?§]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
145 ("S" . [?§]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
146 ("*Y" . [?¥]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
147 ("Y" . [?¥]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
148 ("^1" . [?¹]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
149 ("^2" . [?²]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
150 ("^3" . [?³]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
151 ("^A" . [?Â]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
152 ("^E" . [?Ê]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
153 ("^I" . [?Î]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
154 ("^O" . [?Ô]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
155 ("^U" . [?Û]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
156 ("^a" . [?â]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
157 ("^e" . [?ê]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
158 ("^i" . [?î]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
159 ("^o" . [?ô]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
160 ("^u" . [?û]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
161 ("_a" . [?ª]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
162 ("_o" . [?º]) |
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 ("`E" . [?È]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
165 ("`I" . [?Ì]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
166 ("`O" . [?Ò]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
167 ("`U" . [?Ù]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
168 ("`a" . [?à]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
169 ("`e" . [?è]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
170 ("`i" . [?ì]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
171 ("`o" . [?ò]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
172 ("`u" . [?ù]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
173 ("*c" . [?¢]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
174 ("c" . [?¢]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
175 ("*o" . [?°]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
176 ("o" . [?°]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
177 ("*u" . [?µ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
178 ("u" . [?µ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
179 ("*m" . [?µ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
180 ("m" . [?µ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
181 ("*x" . [?×]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
182 ("x" . [?×]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
183 ("*|" . [?¦]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
184 ("|" . [?¦]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
185 ("~A" . [?Ã]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
186 ("~D" . [?Ð]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
187 ("~N" . [?Ñ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
188 ("~O" . [?Õ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
189 ("~T" . [?Þ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
190 ("~a" . [?ã]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
191 ("~d" . [?ð]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
192 ("~n" . [?ñ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
193 ("~o" . [?õ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
194 ("~t" . [?þ]) |
2a84e0b7ab92
(iso-transl-char-map) Eliminate the
Richard M. Stallman <rms@gnu.org>
parents:
41877
diff
changeset
|
195 ("~~" . [?¬]) |
16175
fadfed208516
(iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents:
16145
diff
changeset
|
196 ("' " . "'") |
fadfed208516
(iso-transl-char-map): Add ACCENT SPACE sequences.
Richard M. Stallman <rms@gnu.org>
parents:
16145
diff
changeset
|
197 ("` " . "`") |
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 ("~ " . "~")) |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
201 "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
|
202 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
|
203 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
|
204 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
|
205 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
206 ;; Language-specific translation lists. |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
207 (defvar iso-transl-language-alist |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
208 '(("Esperanto" |
41877 | 209 ("C" . [?Æ]) |
210 ("G" . [?Ø]) | |
211 ("H" . [?¦]) | |
212 ("J" . [?¬]) | |
213 ("S" . [?Þ]) | |
214 ("U" . [?Ý]) | |
215 ("c" . [?æ]) | |
216 ("g" . [?ø]) | |
217 ("h" . [?¶]) | |
218 ("j" . [?¼]) | |
219 ("s" . [?þ]) | |
220 ("u" . [?ý])) | |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
221 ("French" |
41877 | 222 ("C" . [?Ç]) |
223 ("c" . [?ç])) | |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
224 ("German" |
41877 | 225 ("A" . [?Ä]) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
42392
diff
changeset
|
226 ("O" . [?Ö]) |
41877 | 227 ("U" . [?Ü]) |
228 ("a" . [?ä]) | |
229 ("o" . [?ö]) | |
230 ("s" . [?ß]) | |
231 ("u" . [?ü])) | |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
232 ("Portuguese" |
41877 | 233 ("C" . [?Ç]) |
234 ("c" . [?ç])) | |
10600
45bbb119e1a3
(iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents:
10535
diff
changeset
|
235 ("Spanish" |
41877 | 236 ("!" . [?¡]) |
237 ("?" . [?¿]) | |
238 ("N" . [?Ñ]) | |
239 ("n" . [?ñ])))) | |
5926
240d2ad5803c
Set up Alt keys as well as C-x 8 prefix.
Richard M. Stallman <rms@gnu.org>
parents:
4920
diff
changeset
|
240 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
241 (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
|
242 "Keymap for C-x 8 prefix.") |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
243 (or iso-transl-ctl-x-8-map |
23794 | 244 (fset 'iso-transl-ctl-x-8-map |
245 (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
|
246 (or key-translation-map |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
247 (setq key-translation-map (make-sparse-keymap))) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
248 (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
|
249 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
250 ;; 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
|
251 ;; 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
|
252 ;; 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
|
253 ;; 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
|
254 ;; 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
|
255 ;; 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
|
256 (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
|
257 (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
|
258 (let ((translated-vec (cdr (car alist)))) |
17792
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
259 (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
|
260 (let ((inchar (aref (car (car alist)) 0)) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
261 (vec (vconcat (car (car alist)))) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
262 (tail iso-transl-dead-key-alist)) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
263 (aset vec 0 (logior (aref vec 0) ?\A-\^@)) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
264 (define-key key-translation-map vec translated-vec) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
265 (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
|
266 (while tail |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
267 (if (eq (car (car tail)) inchar) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
268 (let ((deadvec (copy-sequence vec)) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
269 (deadkey (cdr (car tail)))) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
270 (aset deadvec 0 deadkey) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
271 (define-key isearch-mode-map (vector deadkey) nil) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
272 (define-key key-translation-map deadvec translated-vec))) |
fa666ca256c6
(iso-transl-define-keys):
Richard M. Stallman <rms@gnu.org>
parents:
16175
diff
changeset
|
273 (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
|
274 (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
|
275 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
276 (defun iso-transl-set-language (lang) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
277 (interactive (list (let ((completion-ignore-case t)) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
278 (completing-read "Set which language? " |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
279 iso-transl-language-alist nil t)))) |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
280 (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
|
281 |
10523
2303cb9ce523
(iso-transl-char-map): Add elements for mute-acute, etc.
Richard M. Stallman <rms@gnu.org>
parents:
7298
diff
changeset
|
282 |
10535
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
283 ;; 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
|
284 ;; 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
|
285 (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
|
286 |
042525452755
(iso-transl-dead-key-alist): New var.
Karl Heuer <kwzh@gnu.org>
parents:
10523
diff
changeset
|
287 (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
|
288 (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
|
289 (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
|
290 |
4884 | 291 |
4885
fe8090050628
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
4884
diff
changeset
|
292 (provide 'iso-transl) |
4884 | 293 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
79709
diff
changeset
|
294 ;; arch-tag: 034cfedf-7ebd-461d-bcd0-5c79e6dc0b61 |
4885
fe8090050628
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
4884
diff
changeset
|
295 ;;; iso-transl.el ends here |