Commit | Line | Data |
---|---|---|
a80d5219 | 1 | ;;; iso-transl.el --- keyboard input definitions for ISO 8859-1 -*- coding: iso-8859-1 -*- |
5970f3d0 | 2 | |
2fd125a3 | 3 | ;; Copyright (C) 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2001 |
e3fe4da0 | 4 | ;; 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
5970f3d0 RS |
5 | |
6 | ;; Author: Howard Gayle | |
7 | ;; Maintainer: FSF | |
8 | ;; Keywords: i18n | |
9 | ||
10 | ;; This file is part of GNU Emacs. | |
11 | ||
12 | ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13 | ;; it under the terms of the GNU General Public License as published by | |
e5086daf | 14 | ;; the Free Software Foundation; either version 3, or (at your option) |
5970f3d0 RS |
15 | ;; any later version. |
16 | ||
17 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 | ;; GNU General Public License for more details. | |
21 | ||
22 | ;; You should have received a copy of the GNU General Public License | |
b578f267 | 23 | ;; along with GNU Emacs; see the file COPYING. If not, write to the |
3a35cf56 LK |
24 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
25 | ;; Boston, MA 02110-1301, USA. | |
5970f3d0 | 26 | |
63202134 RS |
27 | ;;; Commentary: |
28 | ||
a36db1ea KH |
29 | ;; Loading this package defines three ways of entering the non-ASCII |
30 | ;; printable characters with codes above 127: the prefix C-x 8, or the | |
31 | ;; Alt key, or a dead accent key. For example, you can enter uppercase | |
32 | ;; A-umlaut as `C-x 8 " A' or `Alt-" A' (if you have an Alt key) or | |
33 | ;; `umlaut A' (if you have an umlaut/diaeresis key). | |
63202134 | 34 | |
b1fb5d1b KH |
35 | ;; C-x 8 is set up to autoload this package, |
36 | ;; but Alt keys and dead accent keys are only defined | |
37 | ;; once you have loaded the package. It is nontrivial | |
38 | ;; to make all of the Alt keys autoload, and it is not clear | |
39 | ;; that the dead accent keys SHOULD autoload this package. | |
40 | ||
5970f3d0 RS |
41 | ;;; Code: |
42 | ||
628eac44 KH |
43 | ;;; Provide some binding for startup: |
44 | ;;;###autoload (or key-translation-map (setq key-translation-map (make-sparse-keymap))) | |
79f86347 | 45 | ;;;###autoload (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map) |
628eac44 | 46 | ;;;###autoload (autoload 'iso-transl-ctl-x-8-map "iso-transl" "Keymap for C-x 8 prefix." t 'keymap) |
a1506d29 | 47 | |
a36db1ea KH |
48 | (defvar iso-transl-dead-key-alist |
49 | '((?\' . mute-acute) | |
50 | (?\` . mute-grave) | |
51 | (?\" . mute-diaeresis) | |
97966523 RS |
52 | (?^ . mute-asciicircum) |
53 | (?\~ . mute-asciitilde) | |
54 | (?\' . dead-acute) | |
55 | (?\` . dead-grave) | |
56 | (?\" . dead-diaeresis) | |
57 | (?^ . dead-asciicircum) | |
58 | (?\~ . dead-asciitilde) | |
59 | (?^ . dead-circum) | |
60 | (?^ . dead-circumflex) | |
61 | (?\~ . dead-tilde) | |
62 | ;; Someone reports that these keys don't work if shifted. | |
63 | ;; This might fix it--no word yet. | |
64 | (?\' . S-dead-acute) | |
65 | (?\` . S-dead-grave) | |
66 | (?\" . S-dead-diaeresis) | |
67 | (?^ . S-dead-asciicircum) | |
68 | (?\~ . S-dead-asciitilde) | |
69 | (?^ . S-dead-circum) | |
70 | (?^ . S-dead-circumflex) | |
71 | (?\~ . S-dead-tilde)) | |
a36db1ea KH |
72 | "Mapping of ASCII characters to their corresponding dead-key symbols.") |
73 | ||
74 | ;; The two-character mnemonics are intended to be available in all languages. | |
75 | ;; The ones beginning with `*' have one-character synonyms, but a | |
76 | ;; language-specific table might override the short form for its own use. | |
ff031514 | 77 | |
63202134 | 78 | (defvar iso-transl-char-map |
a929f9e8 RS |
79 |