annotate lisp/international/iso-transl.el @ 81293:a4f9cc3b4ee7

*** empty log message ***
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Sat, 09 Jun 2007 12:53:04 +0000 (2007-06-09)
parents e3694f1cb928
children 451a2d341d55 b8d9a391daf3 95d0cdf160ea
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
41877
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
1 ;;; iso-transl.el --- keyboard input definitions for ISO 8859-1 -*- coding: iso-8859-1 -*-
4884
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2
62274
c36561fe0657 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
3 ;; Copyright (C) 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2001
75347
e3694f1cb928 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 74544
diff changeset
4 ;; 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
4884
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 ;; Author: Howard Gayle
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 ;; Maintainer: FSF
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8 ;; Keywords: i18n
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 ;; the Free Software Foundation; either version 2, or (at your option)
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 ;; any later version.
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 ;; GNU General Public License for more details.
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13203
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62274
diff changeset
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62274
diff changeset
25 ;; Boston, MA 02110-1301, USA.
4884
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
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
bc8fd0210b4c Add commentary.
Karl Heuer <kwzh@gnu.org>
parents: 24797
diff changeset
35 ;; C-x 8 is set up to autoload this package,
bc8fd0210b4c Add commentary.
Karl Heuer <kwzh@gnu.org>
parents: 24797
diff changeset
36 ;; but Alt keys and dead accent keys are only defined
bc8fd0210b4c Add commentary.
Karl Heuer <kwzh@gnu.org>
parents: 24797
diff changeset
37 ;; once you have loaded the package. It is nontrivial
bc8fd0210b4c Add commentary.
Karl Heuer <kwzh@gnu.org>
parents: 24797
diff changeset
38 ;; to make all of the Alt keys autoload, and it is not clear
bc8fd0210b4c Add commentary.
Karl Heuer <kwzh@gnu.org>
parents: 24797
diff changeset
39 ;; that the dead accent keys SHOULD autoload this package.
bc8fd0210b4c Add commentary.
Karl Heuer <kwzh@gnu.org>
parents: 24797
diff changeset
40
4884
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 ;;; Code:
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42
23672
2ae7f6e850db Add autoload cookies.
Karl Heuer <kwzh@gnu.org>
parents: 22842
diff changeset
43 ;;; Provide some binding for startup:
2ae7f6e850db Add autoload cookies.
Karl Heuer <kwzh@gnu.org>
parents: 22842
diff changeset
44 ;;;###autoload (or key-translation-map (setq key-translation-map (make-sparse-keymap)))
23794
7348b1c771c0 Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents: 23672
diff changeset
45 ;;;###autoload (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map)
23672
2ae7f6e850db Add autoload cookies.
Karl Heuer <kwzh@gnu.org>
parents: 22842
diff changeset
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
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
211 ("C" . [?�])
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
212 ("G" . [?�])
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
213 ("H" . [?�])
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
214 ("J" . [?�])
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
215 ("S" . [?�])
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
216 ("U" . [?�])
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
217 ("c" . [?�])
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
218 ("g" . [?�])
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
219 ("h" . [?�])
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
220 ("j" . [?�])
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
221 ("s" . [?�])
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
222 ("u" . [?�]))
10600
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
223 ("French"
41877
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
224 ("C" . [?�])
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
225 ("c" . [?�]))
10600
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
226 ("German"
41877
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
227 ("A" . [?�])
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 42392
diff changeset
228 ("O" . [?�])
41877
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
229 ("U" . [?�])
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
230 ("a" . [?�])
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
231 ("o" . [?�])
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
232 ("s" . [?�])
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
233 ("u" . [?�]))
10600
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
234 ("Portuguese"
41877
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
235 ("C" . [?�])
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
236 ("c" . [?�]))
10600
45bbb119e1a3 (iso-transl-language-alist): Add French & Portuguese.
Karl Heuer <kwzh@gnu.org>
parents: 10535
diff changeset
237 ("Spanish"
41877
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
238 ("!" . [?�])
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
239 ("?" . [?�])
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
240 ("N" . [?�])
c1368417eb85 Insert Latin-1 characters, not
Dave Love <fx@gnu.org>
parents: 39749
diff changeset
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
7348b1c771c0 Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents: 23672
diff changeset
246 (fset 'iso-transl-ctl-x-8-map
7348b1c771c0 Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents: 23672
diff changeset
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
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
293
4885
fe8090050628 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 4884
diff changeset
294 (provide 'iso-transl)
4884
8a07e753eff6 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
295
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49598
diff changeset
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