mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity
cb80bcd173
emacs/lisp/international/iso-transl.el
Glenn Morris acaf905b11 Add 2012 to FSF copyright years for Emacs files
2012-01-05 01:46:05 -08:00

294 lines
8.2 KiB
EmacsLisp
Raw Blame History

;;; iso-transl.el --- keyboard input definitions for ISO 8859-1 -*- coding: iso-8859-1 -*-
;; Copyright (C) 1987, 1993-1999, 2001-2012 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 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
;; 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. If not, see <http://www.gnu.org/licenses/>.
;;; 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.
(defvar iso-transl-char-map
'(("* " . [?<3F>])
(" " . [?<3F>])
("*!" . [?<3F>])
("!" . [?<3F>])
("\"\"" . [?<3F>])
("\"A" . [?<3F>])
("\"E" . [?<3F>])
("\"I" . [?<3F>])
("\"O" . [?<3F>])
("\"U" . [?<3F>])
("\"a" . [?<3F>])
("\"e" . [?<3F>])
("\"i" . [?<3F>])
("\"o" . [?<3F>])
("\"s" . [?<3F>])
("\"u" . [?<3F>])
("\"y" . [?<3F>])
("''" . [?<3F>])
("'A" . [?<3F>])
("'E" . [?<3F>])
("'I" . [?<3F>])
("'O" . [?<3F>])
("'U" . [?<3F>])
("'Y" . [?<3F>])
("'a" . [?<3F>])
("'e" . [?<3F>])
("'i" . [?<3F>])
("'o" . [?<3F>])
("'u" . [?<3F>])
("'y" . [?<3F>])
("*$" . [?<3F>])
("$" . [?<3F>])
("*+" . [?<3F>])
("+" . [?<3F>])
(",," . [?<3F>])
(",C" . [?<3F>])
(",c" . [?<3F>])
("*-" . [?<3F>])
("-" . [?<3F>])
("*." . [?<3F>])
("." . [?<3F>])
("//" . [?<3F>])
("/A" . [?<3F>])
("/E" . [?<3F>])
("/O" . [?<3F>])
("/a" . [?<3F>])
("/e" . [?<3F>])
("/o" . [?<3F>])
("1/2" . [?<3F>])
("1/4" . [?<3F>])
("3/4" . [?<3F>])
("*<" . [?<3F>])
("<" . [?<3F>])
("*=" . [?<3F>])
("=" . [?<3F>])
("*>" . [?<3F>])
(">" . [?<3F>])
("*?" . [?<3F>])
("?" . [?<3F>])
("*C" . [?<3F>])
("C" . [?<3F>])
("*L" . [?<3F>])
("L" . [?<3F>])
("*P" . [?<3F>])
("P" . [?<3F>])
("*R" . [?<3F>])
("R" . [?<3F>])
("*S" . [?<3F>])
("S" . [?<3F>])
("*Y" . [?<3F>])
("Y" . [?<3F>])
("^1" . [?<3F>])
("^2" . [?<3F>])
("^3" . [?<3F>])
("^A" . [?<3F>])
("^E" . [?<3F>])
("^I" . [?<3F>])
("^O" . [?<3F>])
("^U" . [?<3F>])
("^a" . [?<3F>])
("^e" . [?<3F>])
("^i" . [?<3F>])
("^o" . [?<3F>])
("^u" . [?<3F>])
("_a" . [?<3F>])
("_o" . [?<3F>])
("`A" . [?<3F>])
("`E" . [?<3F>])
("`I" . [?<3F>])
("`O" . [?<3F>])
("`U" . [?<3F>])
("`a" . [?<3F>])
("`e" . [?<3F>])
("`i" . [?<3F>])
("`o" . [?<3F>])
("`u" . [?<3F>])
("*c" . [?<3F>])
("c" . [?<3F>])
("*o" . [?<3F>])
("o" . [?<3F>])
("*u" . [?<3F>])
("u" . [?<3F>])
("*m" . [?<3F>])
("m" . [?<3F>])
("*x" . [?<3F>])
("x" . [?<3F>])
("*|" . [?<3F>])
("|" . [?<3F>])
("~A" . [?<3F>])
("~D" . [?<3F>])
("~N" . [?<3F>])
("~O" . [?<3F>])
("~T" . [?<3F>])
("~a" . [?<3F>])
("~d" . [?<3F>])
("~n" . [?<3F>])
("~o" . [?<3F>])
("~t" . [?<3F>])
("~~" . [?<3F>])
("' " . "'")
("` " . "`")
("\" " . "\"")
("^ " . "^")
("~ " . "~"))
"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.)")
;; Language-specific translation lists.
(defvar iso-transl-language-alist
'(("Esperanto"
("C" . [?<3F>])
("G" . [?<3F>])
("H" . [?<3F>])
("J" . [?<3F>])
("S" . [?<3F>])
("U" . [?<3F>])
("c" . [?<3F>])
("g" . [?<3F>])
("h" . [?<3F>])
("j" . [?<3F>])
("s" . [?<3F>])
("u" . [?<3F>]))
("French"
("C" . [?<3F>])
("c" . [?<3F>]))
("German"
("A" . [?<3F>])
("O" . [?<3F>])
("U" . [?<3F>])
("a" . [?<3F>])
("o" . [?<3F>])
("s" . [?<3F>])
("u" . [?<3F>]))
("Portuguese"
("C" . [?<3F>])
("c" . [?<3F>]))
("Spanish"
("!" . [?<3F>])
("?" . [?<3F>])
("N" . [?<3F>])
("n" . [?<3F>]))))
(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
Reference in New Issue View Git Blame Copy Permalink