HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Make bootstrap without generated uni-*.el files possible again
[bpt/emacs.git]
/
lisp
/
international
/
iso-transl.el
diff --git
a/lisp/international/iso-transl.el
b/lisp/international/iso-transl.el
index
c73dd0f
..
4bbb89c
100644
(file)
--- a/
lisp/international/iso-transl.el
+++ b/
lisp/international/iso-transl.el
@@
-1,7
+1,7
@@
-;;; iso-transl.el --- keyboard input definitions for ISO 8859-1 -*- coding:
iso-8859-1
-*-
+;;; iso-transl.el --- keyboard input definitions for ISO 8859-1 -*- coding:
utf-8
-*-
-;; Copyright (C) 1987, 1993
, 1994, 1995, 1996, 1997, 1998, 1999, 2001
-;;
2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation,
Inc.
+;; Copyright (C) 1987, 1993
-1999, 2001-2013 Free Software Foundation,
+;; Inc.
;; Author: Howard Gayle
;; Maintainer: FSF
;; Author: Howard Gayle
;; Maintainer: FSF
@@
-39,7
+39,6
@@
;;; Code:
;;; Provide some binding for startup:
;;; 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)
;;;###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)
@@
-74,125
+73,125
@@
;; language-specific table might override the short form for its own use.
(defvar iso-transl-char-map
;; 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" . [?
þ
])
- ("~~" . [?¬])
+ '(("* " . [?
Â
])
+ (" " . [?
Â
])
+ ("*!" . [?
Â
¡])
+ ("!" . [?
Â
¡])
+ ("\"\"" . [?
Â
¨])
+ ("\"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" . [?Ã
\83
])
+ ("~D" . [?
Ð
])
+ ("~N" . [?
Ñ
])
+ ("~O" . [?
Õ
])
+ ("~T" . [?
Þ
])
+ ("~a" . [?
ã
])
+ ("~d" . [?
ð
])
+ ("~n" . [?
ñ
])
+ ("~o" . [?
õ
])
+ ("~t" . [?
þ
])
+ ("~~" . [?
Â
¬])
("' " . "'")
("` " . "`")
("\" " . "\"")
("' " . "'")
("` " . "`")
("\" " . "\"")
@@
-206,37
+205,37
@@
sequence VECTOR. (VECTOR is normally one character long.)")
;; Language-specific translation lists.
(defvar iso-transl-language-alist
'(("Esperanto"
;; Language-specific translation lists.
(defvar iso-transl-language-alist
'(("Esperanto"
- ("C" . [?
Æ
])
- ("G" . [?
Ø
])
- ("H" . [?¦])
- ("J" . [?¬])
- ("S" . [?
Þ
])
- ("U" . [?
Ý
])
- ("c" . [?
æ
])
- ("g" . [?
ø
])
- ("h" . [?¶])
- ("j" . [?¼])
- ("s" . [?
þ
])
- ("u" . [?
ý
]))
+ ("C" . [?
Æ
])
+ ("G" . [?
Ø
])
+ ("H" . [?
Â
¦])
+ ("J" . [?
Â
¬])
+ ("S" . [?
Þ
])
+ ("U" . [?
Ý
])
+ ("c" . [?
æ
])
+ ("g" . [?
ø
])
+ ("h" . [?
Â
¶])
+ ("j" . [?
Â
¼])
+ ("s" . [?
þ
])
+ ("u" . [?
ý
]))
("French"
("French"
- ("C" . [?
Ç
])
- ("c" . [?
ç
]))
+ ("C" . [?
Ç
])
+ ("c" . [?
ç
]))
("German"
("German"
- ("A" . [?
Ä
])
- ("O" . [?
Ö
])
- ("U" . [?
Ü
])
- ("a" . [?
ä
])
- ("o" . [?
ö
])
- ("s" . [?
ß
])
- ("u" . [?
ü
]))
+ ("A" . [?
Ä
])
+ ("O" . [?
Ö
])
+ ("U" . [?
Ü
])
+ ("a" . [?
ä
])
+ ("o" . [?
ö
])
+ ("s" . [?
ß
])
+ ("u" . [?
ü
]))
("Portuguese"
("Portuguese"
- ("C" . [?
Ç
])
- ("c" . [?
ç
]))
+ ("C" . [?
Ç
])
+ ("c" . [?
ç
]))
("Spanish"
("Spanish"
- ("!" . [?¡])
- ("?" . [?¿])
- ("N" . [?
Ñ
])
- ("n" . [?
ñ
]))))
+ ("!" . [?
Â
¡])
+ ("?" . [?
Â
¿])
+ ("N" . [?
Ñ
])
+ ("n" . [?
ñ
]))))
(defvar iso-transl-ctl-x-8-map nil
"Keymap for C-x 8 prefix.")
(defvar iso-transl-ctl-x-8-map nil
"Keymap for C-x 8 prefix.")
@@
-284,12
+283,6
@@
sequence VECTOR. (VECTOR is normally one character long.)")
;; with a language-specific mapping by using `M-x iso-transl-set-language'.
(iso-transl-define-keys iso-transl-char-map)
;; 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)
(provide 'iso-transl)
-;; arch-tag: 034cfedf-7ebd-461d-bcd0-5c79e6dc0b61
;;; iso-transl.el ends here
;;; iso-transl.el ends here