-;;; iso-transl.el --- keyboard input definitions for ISO 8859/1.
+;;; iso-transl.el --- keyboard input definitions for ISO 8859-1 -*- coding: iso-8859-1 -*-
-;; Copyright (C) 1987, 1993 Free Software Foundation, Inc.
+;; Copyright (C) 1987, 1993, 1994, 1995, 2001 Free Software Foundation, Inc.
;; Author: Howard Gayle
;; Maintainer: FSF
;; 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, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; 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:
-(let ((map (make-sparse-keymap)))
- (define-key map " " [160])
- (define-key map "!" [161])
- (define-key map "\"" (make-sparse-keymap))
- (define-key map "\"\"" [168])
- (define-key map "\"A" [196])
- (define-key map "\"E" [203])
- (define-key map "\"I" [207])
- (define-key map "\"O" [214])
- (define-key map "\"U" [220])
- (define-key map "\"a" [228])
- (define-key map "\"e" [235])
- (define-key map "\"i" [239])
- (define-key map "\"o" [246])
- (define-key map "\"u" [252])
- (define-key map "\"y" [255])
- (define-key map "'" (make-sparse-keymap))
- (define-key map "''" [180])
- (define-key map "'A" [193])
- (define-key map "'E" [201])
- (define-key map "'I" [205])
- (define-key map "'O" [211])
- (define-key map "'U" [218])
- (define-key map "'Y" [221])
- (define-key map "'a" [225])
- (define-key map "'e" [233])
- (define-key map "'i" [237])
- (define-key map "'o" [243])
- (define-key map "'u" [250])
- (define-key map "'y" [253])
- (define-key map "$" [164])
- (define-key map "+" [177])
- (define-key map "," (make-sparse-keymap))
- (define-key map ",," [184])
- (define-key map ",C" [199])
- (define-key map ",c" [231])
- (define-key map "-" [173])
- (define-key map "." [183])
- (define-key map "/" (make-sparse-keymap))
- (define-key map "//" [247])
- (define-key map "/O" [216])
- (define-key map "/o" [248])
- (define-key map "1" (make-sparse-keymap))
- (define-key map "1/" (make-sparse-keymap))
- (define-key map "1/2" [189])
- (define-key map "1/4" [188])
- (define-key map "3" (make-sparse-keymap))
- (define-key map "3/" (make-sparse-keymap))
- (define-key map "3/4" [190])
- (define-key map "<" [171])
- (define-key map "=" [175])
- (define-key map ">" [187])
- (define-key map "?" [191])
- (define-key map "A" (make-sparse-keymap))
- (define-key map "AA" [197])
- (define-key map "AE" [198])
- (define-key map "C" [169])
- (define-key map "D" [208])
- (define-key map "L" [163])
- (define-key map "P" [182])
- (define-key map "R" [174])
- (define-key map "S" [167])
- (define-key map "T" [222])
- (define-key map "Y" [165])
- (define-key map "^" (make-sparse-keymap))
- (define-key map "^1" [185])
- (define-key map "^2" [178])
- (define-key map "^3" [179])
- (define-key map "^A" [194])
- (define-key map "^E" [202])
- (define-key map "^I" [206])
- (define-key map "^O" [212])
- (define-key map "^U" [219])
- (define-key map "^a" [226])
- (define-key map "^e" [234])
- (define-key map "^i" [238])
- (define-key map "^o" [244])
- (define-key map "^u" [251])
- (define-key map "_" (make-sparse-keymap))
- (define-key map "_a" [170])
- (define-key map "_o" [186])
- (define-key map "`" (make-sparse-keymap))
- (define-key map "`A" [192])
- (define-key map "`E" [200])
- (define-key map "`I" [204])
- (define-key map "`O" [210])
- (define-key map "`U" [217])
- (define-key map "`a" [224])
- (define-key map "`e" [232])
- (define-key map "`i" [236])
- (define-key map "`o" [242])
- (define-key map "`u" [249])
- (define-key map "a" (make-sparse-keymap))
- (define-key map "aa" [229])
- (define-key map "ae" [230])
- (define-key map "c" [162])
- (define-key map "d" [240])
- (define-key map "o" [176])
- (define-key map "s" [223])
- (define-key map "t" [254])
- (define-key map "u" [181])
- (define-key map "x" [215])
- (define-key map "|" [166])
- (define-key map "~" (make-sparse-keymap))
- (define-key map "~A" [195])
- (define-key map "~N" [209])
- (define-key map "~O" [213])
- (define-key map "~a" [227])
- (define-key map "~n" [241])
- (define-key map "~o" [245])
- (define-key map "~~" [172])
- (or key-translation-map
- (setq key-translation-map (make-sparse-keymap)))
- (define-key key-translation-map "\C-x8" 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 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
+ '(("* " . [? ])
+ (" " . [? ])
+ ("*!" . [?¡])
+ ("!" . [?¡])
+ ("\"\"" . [?¨])
+ ("\"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" . [?þ])
+ ("~~" . [?¬])
+ ("' " . "'")
+ ("` " . "`")
+ ("\" " . "\"")
+ ("^ " . "^")
+ ("~ " . "~"))
+ "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" . [?Æ])
+ ("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)
+;;; arch-tag: 034cfedf-7ebd-461d-bcd0-5c79e6dc0b61
;;; iso-transl.el ends here