view lisp/international/iso-transl.el @ 42133:14add4c935a4
Include "config.h", not <../src/config.h>.
author |
Dave Love <fx@gnu.org> |
date |
Tue, 18 Dec 2001 16:00:01 +0000 (2001-12-18) |
parents |
c1368417eb85 |
children |
2a84e0b7ab92 |
line source
;;; 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.
;; Author: Howard Gayle
;; Maintainer: FSF
;; Keywords: i18n
;; This file is part of GNU Emacs.
;; 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.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; 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.
;;; Commentary:
;; Loading this package defines three ways of entering the non-ASCII
;; printable characters with codes above 127: the prefix C-x 8, or the
;; Alt key, or a dead accent key. For example, you can enter uppercase
;; A-umlaut as `C-x 8 " A' or `Alt-" A' (if you have an Alt key) or
;; `umlaut A' (if you have an umlaut/diaeresis key).
;; C-x 8 is set up to autoload this package,
;; but Alt keys and dead accent keys are only defined
;; once you have loaded the package. It is nontrivial
;; to make all of the Alt keys autoload, and it is not clear
;; that the dead accent keys SHOULD autoload this package.
;;; Code:
;;; Provide some binding for startup:
;;;###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)
(?\" . mute-diaeresis)
(?^ . mute-asciicircum)
(?\~ . mute-asciitilde)
(?\' . dead-acute)
(?\` . dead-grave)
(?\" . dead-diaeresis)
(?^ . dead-asciicircum)
(?\~ . dead-asciitilde)
(?^ . dead-circum)
(?^ . dead-circumflex)
(?\~ . dead-tilde)
;; Someone reports that these keys don't work if shifted.
;; This might fix it--no word yet.
(?\' . S-dead-acute)
(?\` . S-dead-grave)
(?\" . S-dead-diaeresis)
(?^ . S-dead-asciicircum)
(?\~ . S-dead-asciitilde)
(?^ . S-dead-circum)
(?^ . S-dead-circumflex)
(?\~ . S-dead-tilde))
"Mapping of ASCII characters to their corresponding dead-key symbols.")
;; The two-character mnemonics are intended to be available in all languages.
;; 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)
("' " . "'")
("` " . "`")
("\" " . "\"")
("^ " . "^")
("~ " . "~"))
"Alist of character translations for entering ISO characters.
Each element has the form (STRING . VECTOR).
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" . [?�])
("G" . [?�])
("H" . [?�])
("J" . [?�])
("S" . [?�])
("U" . [?�])
("c" . [?�])
("g" . [?�])
("h" . [?�])
("j" . [?�])
("s" . [?�])
("u" . [?�]))
("French"
("C" . [?�])
("c" . [?�]))
("German"
("A" . [?�])
("O" . [?�])
("U" . [?�])
("a" . [?�])
("o" . [?�])
("s" . [?�])
("u" . [?�]))
("Portuguese"
("C" . [?�])
("c" . [?�]))
("Spanish"
("!" . [?�])
("?" . [?�])
("N" . [?�])
("n" . [?�]))))
(defvar iso-transl-ctl-x-8-map nil
"Keymap for C-x 8 prefix.")
(or iso-transl-ctl-x-8-map
(fset 'iso-transl-ctl-x-8-map
(setq iso-transl-ctl-x-8-map (make-sparse-keymap))))
(or key-translation-map
(setq key-translation-map (make-sparse-keymap)))
(define-key key-translation-map "\C-x8" iso-transl-ctl-x-8-map)
;; For each entry in the alist, we'll make up to three ways to generate
;; the character in question: the prefix `C-x 8'; the ALT modifier on
;; the first key of the sequence; and (if applicable) replacing the first
;; key of the sequence with the corresponding dead key. For example, a
;; character associated with the string "~n" can be input with `C-x 8 ~ n'
;; or `Alt-~ n' or `mute-asciitilde n'.
(defun iso-transl-define-keys (alist)
(while alist
(let ((translated-vec (cdr (car alist))))
(define-key iso-transl-ctl-x-8-map (car (car alist)) translated-vec)
(let ((inchar (aref (car (car alist)) 0))
(vec (vconcat (car (car alist))))
(tail iso-transl-dead-key-alist))
(aset vec 0 (logior (aref vec 0) ?\A-\^@))
(define-key key-translation-map vec translated-vec)
(define-key isearch-mode-map (vector (aref vec 0)) nil)
(while tail
(if (eq (car (car tail)) inchar)
(let ((deadvec (copy-sequence vec))
(deadkey (cdr (car tail))))
(aset deadvec 0 deadkey)
(define-key isearch-mode-map (vector deadkey) nil)
(define-key key-translation-map deadvec translated-vec)))
(setq tail (cdr tail)))))
(setq alist (cdr alist))))
(defun iso-transl-set-language (lang)
(interactive (list (let ((completion-ignore-case t))
(completing-read "Set which language? "
iso-transl-language-alist nil t))))
(iso-transl-define-keys (cdr (assoc lang iso-transl-language-alist))))
;; The standard mapping comes automatically. You can partially overlay it
;; with a language-specific mapping by using `M-x iso-transl-set-language'.
(iso-transl-define-keys iso-transl-char-map)
(define-key isearch-mode-map "\C-x" nil)
(define-key isearch-mode-map [?\C-x t] 'isearch-other-control-char)
(define-key isearch-mode-map "\C-x8" nil)
(provide 'iso-transl)
;;; iso-transl.el ends here