;;; iso-transl.el --- keyboard input definitions for ISO 8859-1 -*- coding: iso-8859-1 -*-
-;; Copyright (C) 1987, 1993, 1994, 1995, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2001
+;; 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
;; Author: Howard Gayle
;; Maintainer: FSF
;; This file is part of GNU Emacs.
-;; GNU Emacs is free software; you can redistribute it and/or modify
+;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;;###autoload (or key-translation-map (setq key-translation-map (make-sparse-keymap)))
;;;###autoload (define-key key-translation-map "\C-x8" 'iso-transl-ctl-x-8-map)
;;;###autoload (autoload 'iso-transl-ctl-x-8-map "iso-transl" "Keymap for C-x 8 prefix." t 'keymap)
-
+
(defvar iso-transl-dead-key-alist
'((?\' . mute-acute)
(?\` . mute-grave)
;; The ones beginning with `*' have one-character synonyms, but a
;; language-specific table might override the short form for its own use.
-;; When a translation is non-ASCII, we use a symbol name
-;; whose "function definition" is a translation, rather than
-;; writing the translation directly here.
-;; That is for the sake of C-x 8 C-h.
(defvar iso-transl-char-map
- '(("* " . iso-transl-no-break-space)
- (" " . iso-transl-no-break-space)
- ("*!" . iso-transl-inverted-exclamation-mark)
- ("!" . iso-transl-inverted-exclamation-mark)
- ("\"\"" . iso-transl-diaeresis)
- ("\"A" . iso-transl-A-umlaut)
- ("\"E" . iso-transl-E-umlaut)
- ("\"I" . iso-transl-I-umlaut)
- ("\"O" . iso-transl-O-umlaut)
- ("\"U" . iso-transl-U-umlaut)
- ("\"a" . iso-transl-a-umlaut)
- ("\"e" . iso-transl-e-umlaut)
- ("\"i" . iso-transl-i-umlaut)
- ("\"o" . iso-transl-o-umlaut)
- ("\"s" . iso-transl-ss)
- ("\"u" . iso-transl-u-umlaut)
- ("\"y" . iso-transl-y-umlaut)
- ("''" . iso-transl-acute-accent)
- ("'A" . iso-transl-A-acute)
- ("'E" . iso-transl-E-acute)
- ("'I" . iso-transl-I-acute)
- ("'O" . iso-transl-O-acute)
- ("'U" . iso-transl-U-acute)
- ("'Y" . iso-transl-Y-acute)
- ("'a" . iso-transl-a-acute)
- ("'e" . iso-transl-e-acute)
- ("'i" . iso-transl-i-acute)
- ("'o" . iso-transl-o-acute)
- ("'u" . iso-transl-u-acute)
- ("'y" . iso-transl-y-acute)
- ("*$" . iso-transl-general-currency-sign)
- ("$" . iso-transl-general-currency-sign)
- ("*+" . iso-transl-plus-or-minus-sign)
- ("+" . iso-transl-plus-or-minus-sign)
- (",," . iso-transl-cedilla)
- (",C" . iso-transl-C-cedilla)
- (",c" . iso-transl-c-cedilla)
- ("*-" . iso-transl-soft-hyphen)
- ("-" . iso-transl-soft-hyphen)
- ("*." . iso-transl-middle-dot)
- ("." . iso-transl-middle-dot)
- ("//" . iso-transl-division-sign)
- ("/A" . iso-transl-A-ring)
- ("/E" . iso-transl-AE)
- ("/O" . iso-transl-O-slash)
- ("/a" . iso-transl-a-ring)
- ("/e" . iso-transl-ae)
- ("/o" . iso-transl-o-slash)
- ("1/2" . iso-transl-one-half)
- ("1/4" . iso-transl-one-quarter)
- ("3/4" . iso-transl-three-quarters)
- ("*<" . iso-transl-angle-left)
- ("<" . iso-transl-angle-left)
- ("*=" . iso-transl-macron)
- ("=" . iso-transl-macron)
- ("*>" . iso-transl-angle-right)
- (">" . iso-transl-angle-right)
- ("*?" . iso-transl-inverted-question-mark)
- ("?" . iso-transl-inverted-question-mark)
- ("*C" . iso-transl-copyright-sign)
- ("C" . iso-transl-copyright-sign)
- ("*L" . iso-transl-pound-sign)
- ("L" . iso-transl-pound-sign)
- ("*P" . iso-transl-pilcrow)
- ("P" . iso-transl-pilcrow)
- ("*R" . iso-transl-registered-sign)
- ("R" . iso-transl-registered-sign)
- ("*S" . iso-transl-section-sign)
- ("S" . iso-transl-section-sign)
- ("*Y" . iso-transl-yen-sign)
- ("Y" . iso-transl-yen-sign)
- ("^1" . iso-transl-superscript-1)
- ("^2" . iso-transl-superscript-2)
- ("^3" . iso-transl-superscript-3)
- ("^A" . iso-transl-A-caret)
- ("^E" . iso-transl-E-caret)
- ("^I" . iso-transl-I-caret)
- ("^O" . iso-transl-O-caret)
- ("^U" . iso-transl-U-caret)
- ("^a" . iso-transl-a-caret)
- ("^e" . iso-transl-e-caret)
- ("^i" . iso-transl-i-caret)
- ("^o" . iso-transl-o-caret)
- ("^u" . iso-transl-u-caret)
- ("_a" . iso-transl-ordinal-indicator-feminine)
- ("_o" . iso-transl-ordinal-indicator-masculine)
- ("`A" . iso-transl-A-grave)
- ("`E" . iso-transl-E-grave)
- ("`I" . iso-transl-I-grave)
- ("`O" . iso-transl-O-grave)
- ("`U" . iso-transl-U-grave)
- ("`a" . iso-transl-a-grave)
- ("`e" . iso-transl-e-grave)
- ("`i" . iso-transl-i-grave)
- ("`o" . iso-transl-o-grave)
- ("`u" . iso-transl-u-grave)
- ("*c" . iso-transl-cent-sign)
- ("c" . iso-transl-cent-sign)
- ("*o" . iso-transl-degree-sign)
- ("o" . iso-transl-degree-sign)
- ("*u" . iso-transl-micro-sign)
- ("u" . iso-transl-micro-sign)
- ("*m" . iso-transl-micro-sign)
- ("m" . iso-transl-micro-sign)
- ("*x" . iso-transl-multiplication-sign)
- ("x" . iso-transl-multiplication-sign)
- ("*|" . iso-transl-broken-vertical-line)
- ("|" . iso-transl-broken-vertical-line)
- ("~A" . iso-transl-A-tilde)
- ("~D" . iso-transl-D-stroke)
- ("~N" . iso-transl-N-tilde)
- ("~O" . iso-transl-O-tilde)
- ("~T" . iso-transl-THORN)
- ("~a" . iso-transl-a-tilde)
- ("~d" . iso-transl-d-stroke)
- ("~n" . iso-transl-n-tilde)
- ("~o" . iso-transl-o-tilde)
- ("~t" . iso-transl-thorn)
- ("~~" . iso-transl-not-sign)
+ '(("* " . [? ])
+ (" " . [? ])
+ ("*!" . [?¡])
+ ("!" . [?¡])
+ ("\"\"" . [?¨])
+ ("\"A" . [?Ä])
+ ("\"E" . [?Ë])
+ ("\"I" . [?Ï])
+ ("\"O" . [?Ö])
+ ("\"U" . [?Ü])
+ ("\"a" . [?ä])
+ ("\"e" . [?ë])
+ ("\"i" . [?ï])
+ ("\"o" . [?ö])
+ ("\"s" . [?ß])
+ ("\"u" . [?ü])
+ ("\"y" . [?ÿ])
+ ("''" . [?´])
+ ("'A" . [?Á])
+ ("'E" . [?É])
+ ("'I" . [?Í])
+ ("'O" . [?Ó])
+ ("'U" . [?Ú])
+ ("'Y" . [?Ý])
+ ("'a" . [?á])
+ ("'e" . [?é])
+ ("'i" . [?í])
+ ("'o" . [?ó])
+ ("'u" . [?ú])
+ ("'y" . [?ý])
+ ("*$" . [?¤])
+ ("$" . [?¤])
+ ("*+" . [?±])
+ ("+" . [?±])
+ (",," . [?¸])
+ (",C" . [?Ç])
+ (",c" . [?ç])
+ ("*-" . [?])
+ ("-" . [?])
+ ("*." . [?·])
+ ("." . [?·])
+ ("//" . [?÷])
+ ("/A" . [?Å])
+ ("/E" . [?Æ])
+ ("/O" . [?Ø])
+ ("/a" . [?å])
+ ("/e" . [?æ])
+ ("/o" . [?ø])
+ ("1/2" . [?½])
+ ("1/4" . [?¼])
+ ("3/4" . [?¾])
+ ("*<" . [?«])
+ ("<" . [?«])
+ ("*=" . [?¯])
+ ("=" . [?¯])
+ ("*>" . [?»])
+ (">" . [?»])
+ ("*?" . [?¿])
+ ("?" . [?¿])
+ ("*C" . [?©])
+ ("C" . [?©])
+ ("*L" . [?£])
+ ("L" . [?£])
+ ("*P" . [?¶])
+ ("P" . [?¶])
+ ("*R" . [?®])
+ ("R" . [?®])
+ ("*S" . [?§])
+ ("S" . [?§])
+ ("*Y" . [?¥])
+ ("Y" . [?¥])
+ ("^1" . [?¹])
+ ("^2" . [?²])
+ ("^3" . [?³])
+ ("^A" . [?Â])
+ ("^E" . [?Ê])
+ ("^I" . [?Î])
+ ("^O" . [?Ô])
+ ("^U" . [?Û])
+ ("^a" . [?â])
+ ("^e" . [?ê])
+ ("^i" . [?î])
+ ("^o" . [?ô])
+ ("^u" . [?û])
+ ("_a" . [?ª])
+ ("_o" . [?º])
+ ("`A" . [?À])
+ ("`E" . [?È])
+ ("`I" . [?Ì])
+ ("`O" . [?Ò])
+ ("`U" . [?Ù])
+ ("`a" . [?à])
+ ("`e" . [?è])
+ ("`i" . [?ì])
+ ("`o" . [?ò])
+ ("`u" . [?ù])
+ ("*c" . [?¢])
+ ("c" . [?¢])
+ ("*o" . [?°])
+ ("o" . [?°])
+ ("*u" . [?µ])
+ ("u" . [?µ])
+ ("*m" . [?µ])
+ ("m" . [?µ])
+ ("*x" . [?×])
+ ("x" . [?×])
+ ("*|" . [?¦])
+ ("|" . [?¦])
+ ("~A" . [?Ã])
+ ("~D" . [?Ð])
+ ("~N" . [?Ñ])
+ ("~O" . [?Õ])
+ ("~T" . [?Þ])
+ ("~a" . [?ã])
+ ("~d" . [?ð])
+ ("~n" . [?ñ])
+ ("~o" . [?õ])
+ ("~t" . [?þ])
+ ("~~" . [?¬])
("' " . "'")
("` " . "`")
("\" " . "\"")
The sequence STRING of ASCII chars translates into the
sequence VECTOR. (VECTOR is normally one character long.)")
-(defalias 'iso-transl-no-break-space [? ])
-(defalias 'iso-transl-inverted-exclamation-mark [?¡])
-(defalias 'iso-transl-cent-sign [?¢])
-(defalias 'iso-transl-pound-sign [?£])
-(defalias 'iso-transl-general-currency-sign [?¤])
-(defalias 'iso-transl-yen-sign [?¥])
-(defalias 'iso-transl-broken-vertical-line [?¦])
-(defalias 'iso-transl-section-sign [?§])
-(defalias 'iso-transl-diaeresis [?¨])
-(defalias 'iso-transl-copyright-sign [?©])
-(defalias 'iso-transl-ordinal-indicator-feminine [?ª])
-(defalias 'iso-transl-angle-left [?«])
-(defalias 'iso-transl-not-sign [?¬])
-(defalias 'iso-transl-soft-hyphen [?])
-(defalias 'iso-transl-registered-sign [?®])
-(defalias 'iso-transl-macron [?¯])
-(defalias 'iso-transl-degree-sign [?°])
-(defalias 'iso-transl-plus-or-minus-sign [?±])
-(defalias 'iso-transl-superscript-2 [?²])
-(defalias 'iso-transl-superscript-3 [?³])
-(defalias 'iso-transl-acute-accent [?´])
-(defalias 'iso-transl-micro-sign [?µ])
-(defalias 'iso-transl-pilcrow [?¶])
-(defalias 'iso-transl-middle-dot [?·])
-(defalias 'iso-transl-cedilla [?¸])
-(defalias 'iso-transl-superscript-1 [?¹])
-(defalias 'iso-transl-ordinal-indicator-masculine [?º])
-(defalias 'iso-transl-angle-right [?»])
-(defalias 'iso-transl-one-quarter [?¼])
-(defalias 'iso-transl-one-half [?½])
-(defalias 'iso-transl-three-quarters [?¾])
-(defalias 'iso-transl-inverted-question-mark [?¿])
-(defalias 'iso-transl-A-grave [?À])
-(defalias 'iso-transl-A-acute [?Á])
-(defalias 'iso-transl-A-caret [?Â])
-(defalias 'iso-transl-A-tilde [?Ã])
-(defalias 'iso-transl-A-umlaut [?Ä])
-(defalias 'iso-transl-A-ring [?Å])
-(defalias 'iso-transl-AE [?Æ])
-(defalias 'iso-transl-C-cedilla [?Ç])
-(defalias 'iso-transl-E-grave [?È])
-(defalias 'iso-transl-E-acute [?É])
-(defalias 'iso-transl-E-caret [?Ê])
-(defalias 'iso-transl-E-umlaut [?Ë])
-(defalias 'iso-transl-I-grave [?Ì])
-(defalias 'iso-transl-I-acute [?Í])
-(defalias 'iso-transl-I-caret [?Î])
-(defalias 'iso-transl-I-umlaut [?Ï])
-(defalias 'iso-transl-D-stroke [?Ð])
-(defalias 'iso-transl-N-tilde [?Ñ])
-(defalias 'iso-transl-O-grave [?Ò])
-(defalias 'iso-transl-O-acute [?Ó])
-(defalias 'iso-transl-O-caret [?Ô])
-(defalias 'iso-transl-O-tilde [?Õ])
-(defalias 'iso-transl-O-umlaut [?Ö])
-(defalias 'iso-transl-multiplication-sign [?×])
-(defalias 'iso-transl-O-slash [?Ø])
-(defalias 'iso-transl-U-grave [?Ù])
-(defalias 'iso-transl-U-acute [?Ú])
-(defalias 'iso-transl-U-caret [?Û])
-(defalias 'iso-transl-U-umlaut [?Ü])
-(defalias 'iso-transl-Y-acute [?Ý])
-(defalias 'iso-transl-THORN [?Þ])
-(defalias 'iso-transl-ss [?ß])
-(defalias 'iso-transl-a-grave [?à])
-(defalias 'iso-transl-a-acute [?á])
-(defalias 'iso-transl-a-caret [?â])
-(defalias 'iso-transl-a-tilde [?ã])
-(defalias 'iso-transl-a-umlaut [?ä])
-(defalias 'iso-transl-a-ring [?å])
-(defalias 'iso-transl-ae [?æ])
-(defalias 'iso-transl-c-cedilla [?ç])
-(defalias 'iso-transl-e-grave [?è])
-(defalias 'iso-transl-e-acute [?é])
-(defalias 'iso-transl-e-caret [?ê])
-(defalias 'iso-transl-e-umlaut [?ë])
-(defalias 'iso-transl-i-grave [?ì])
-(defalias 'iso-transl-i-acute [?í])
-(defalias 'iso-transl-i-caret [?î])
-(defalias 'iso-transl-i-umlaut [?ï])
-(defalias 'iso-transl-d-stroke [?ð])
-(defalias 'iso-transl-n-tilde [?ñ])
-(defalias 'iso-transl-o-grave [?ò])
-(defalias 'iso-transl-o-acute [?ó])
-(defalias 'iso-transl-o-caret [?ô])
-(defalias 'iso-transl-o-tilde [?õ])
-(defalias 'iso-transl-o-umlaut [?ö])
-(defalias 'iso-transl-division-sign [?÷])
-(defalias 'iso-transl-o-slash [?ø])
-(defalias 'iso-transl-u-grave [?ù])
-(defalias 'iso-transl-u-acute [?ú])
-(defalias 'iso-transl-u-caret [?û])
-(defalias 'iso-transl-u-umlaut [?ü])
-(defalias 'iso-transl-y-acute [?ý])
-(defalias 'iso-transl-thorn [?þ])
-(defalias 'iso-transl-y-umlaut [?ÿ])
-
;; Language-specific translation lists.
(defvar iso-transl-language-alist
'(("Esperanto"
("c" . [?ç]))
("German"
("A" . [?Ä])
- ("O" . [?Ö])
+ ("O" . [?Ö])
("U" . [?Ü])
("a" . [?ä])
("o" . [?ö])
(provide 'iso-transl)
+;; arch-tag: 034cfedf-7ebd-461d-bcd0-5c79e6dc0b61
;;; iso-transl.el ends here