Commit | Line | Data |
---|---|---|
a80d5219 | 1 | ;;; iso-transl.el --- keyboard input definitions for ISO 8859-1 -*- coding: iso-8859-1 -*- |
5970f3d0 | 2 | |
031a1678 | 3 | ;; Copyright (C) 1987, 1993, 1994, 1995, 2001 Free Software Foundation, Inc. |
5970f3d0 RS |
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 | |
b578f267 EN |
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. | |
5970f3d0 | 25 | |
63202134 RS |
26 | ;;; Commentary: |
27 | ||
a36db1ea KH |
28 | ;; Loading this package defines three ways of entering the non-ASCII |
29 | ;; printable characters with codes above 127: the prefix C-x 8, or the | |
30 | ;; Alt key, or a dead accent key. For example, you can enter uppercase | |
31 | ;; A-umlaut as `C-x 8 " A' or `Alt-" A' (if you have an Alt key) or | |
32 | ;; `umlaut A' (if you have an umlaut/diaeresis key). | |
63202134 | 33 | |
b1fb5d1b KH |
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 | ||
5970f3d0 RS |
40 | ;;; Code: |
41 | ||
628eac44 KH |
42 | ;;; Provide some binding for startup: |
43 | ;;;###autoload (or key-translation-map (setq key-translation-map (make-sparse-keymap))) | |
79f86347 | 44 | ;;;###autoload (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map) |
628eac44 | 45 | ;;;###autoload (autoload 'iso-transl-ctl-x-8-map "iso-transl" "Keymap for C-x 8 prefix." t 'keymap) |
a1506d29 | 46 | |
a36db1ea KH |
47 | (defvar iso-transl-dead-key-alist |
48 | '((?\' . mute-acute) | |
49 | (?\` . mute-grave) | |
50 | (?\" . mute-diaeresis) | |
97966523 RS |
51 | (?^ . mute-asciicircum) |
52 | (?\~ . mute-asciitilde) | |
53 | (?\' . dead-acute) | |
54 | (?\` . dead-grave) | |
55 | (?\" . dead-diaeresis) | |
56 | (?^ . dead-asciicircum) | |
57 | (?\~ . dead-asciitilde) | |
58 | (?^ . dead-circum) | |
59 | (?^ . dead-circumflex) | |
60 | (?\~ . dead-tilde) | |
61 | ;; Someone reports that these keys don't work if shifted. | |
62 | ;; This might fix it--no word yet. | |
63 | (?\' . S-dead-acute) | |
64 | (?\` . S-dead-grave) | |
65 | (?\" . S-dead-diaeresis) | |
66 | (?^ . S-dead-asciicircum) | |
67 | (?\~ . S-dead-asciitilde) | |
68 | (?^ . S-dead-circum) | |
69 | (?^ . S-dead-circumflex) | |
70 | (?\~ . S-dead-tilde)) | |
a36db1ea KH |
71 | "Mapping of ASCII characters to their corresponding dead-key symbols.") |
72 | ||
73 | ;; The two-character mnemonics are intended to be available in all languages. | |
74 | ;; The ones beginning with `*' have one-character synonyms, but a | |
75 | ;; language-specific table might override the short form for its own use. | |
ff031514 | 76 | |
63202134 | 77 | (defvar iso-transl-char-map |
a929f9e8 RS |
78 |