-;;; latin-pre.el -- Quail packages for inputting various European characters.
+;;; latin-pre.el --- Quail packages for inputting various European characters -*-coding: iso-2022-7bit;-*-
;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
-;; Copyright (C) 2000 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2002 Free Software Foundation, Inc.
;; Keywords: mule, multilingual, latin, input method
;; 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.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
;; Key translation maps were originally copied from iso-acc.el.
-;; latin-1-prefix: extra special characters added, adapted from the vim
+;; latin-1-prefix: extra special characters added, adapted from the vim
;; digraphs (from J.H.M.Dassen <jdassen@wi.leidenuniv.nl>)
;; by R.F. Smith <rsmith@xs4all.nl>
;;
;; polish-slash:
-;; Author: W\e,B3\e(Bodek Bzyl <matwb@univ.gda.pl>
-;; Maintainer: W\e,B3\e(Bodek Bzyl <matwb@univ.gda.pl>
+;; Author: W\e,B3\e(Bodek Bzyl <matwb@univ.gda.pl>
+;; Maintainer: W\e,B3\e(Bodek Bzyl <matwb@univ.gda.pl>
;;
;; latin-[89]-prefix: Dave Love <fx@gnu.org>
+;; You might make extra input sequences on the basis of the X
+;; locale/*/Compose files (which have both prefix and postfix
+;; sequences), but bear in mind that sequences which are logical in
+;; that context may not be sensible when they're not signalled with
+;; the Compose key. An example is a double space for NBSP.
+
;;; Code:
(require 'quail)
| ~ | ~p -> \e,A6\e(B ~- -> \e,A-\e(B ~= -> \e,A/\e(B ~| -> \e,A&\e(B
symbol | _ / | _o -> \e,A:\e(B _a -> \e,A*\e(B // -> \e,A0\e(B /\\ -> \e,AW\e(B _y -> \e,A%\e(B
| _ / | _: -> \e,Aw\e(B /c -> \e,A"\e(B /2 -> \e,A=\e(B /4 -> \e,A<\e(B /3 -> \e,A>\e(B
- | _ / | /= => \e,A,\e(B
+ | _ / | /= -> \e,A,\e(B
symbol | ^ | ^r -> \e,A.\e(B ^c -> \e,A)\e(B ^1 -> \e,A9\e(B ^2 -> \e,A2\e(B ^3 -> \e,A3\e(B
" nil t nil nil nil nil nil nil nil nil t)
-;; Fixme: should we have non-break space somehow? Is so, how?
(quail-define-rules
("'A" ?\e,AA\e(B)
("'E" ?\e,AI\e(B)
("/ " ?/)
("_o" ?\e,A:\e(B)
("_a" ?\e,A*\e(B)
+ ("_ " ?\e,A \e(B)
;; Symbols added by Roland Smith <rsmith@xs4all.nl>
("_+" ?\e,A1\e(B)
("_y" ?\e,A%\e(B)
("_:" ?\e,Aw\e(B)
+ ("__" ?_)
("/c" ?\e,A"\e(B)
("/\\" ?\e,AW\e(B)
("/2" ?\e,A=\e(B)
)
(quail-define-package
- "french-prefix" "Latin-1" "FR>" t
+ "french-prefix" "French" "FR>" t
"French (Fran\e,Ag\e(Bais) input method with prefix modifiers
effect | prefix | examples
acute | ' | 'e -> \e,Ai\e(B
grave | ` | `a -> \e,A`\e(B
circumflex | ^ | ^a -> \e,Ab\e(B
- diaeresis | \" | \"i -> \e,Ao\e(B
+ diaeresis | \" | \"i -> \e,Ao\e(B
cedilla | ~ or , | ~c -> \e,Ag\e(B ,c -> \e,Ag\e(B
symbol | ~ | ~> -> \e,A;\e(B ~< -> \e,A+\e(B
" nil t nil nil nil nil nil nil nil nil t)
("~>" ?\\e,A;\e(B)
("~C" ?\e,AG\e(B)
("~c" ?\e,Ag\e(B)
- ("~," ?,)
+ ("~ " ?~)
(",C" ?\e,AG\e(B)
(",c" ?\e,Ag\e(B)
- (", " ?~)
+ (", " ?,)
)
(quail-define-package
("''" ?') ("\"\"" ?\"))
(quail-define-package
- "german-prefix" "Latin-1" "DE>" t
+ "german-prefix" "German" "DE>" t
"German (Deutsch) input method with prefix modifiers
Key translation rules are:
- \"A -> \e,AD\e(B -> \"O -> \e,AV\e(B \"U -> \e,A\\e(B \"s -> ?\e,A_\e(B
+ \"A -> \e,AD\e(B -> \"O -> \e,AV\e(B \"U -> \e,A\\e(B \"s -> \e,A_\e(B
" nil t nil nil nil nil nil nil nil nil t)
(quail-define-rules
)
(quail-define-package
- "spanish-prefix" "Latin-1" "ES>" t
+ "spanish-prefix" "Spanish" "ES>" t
"Spanish (Espa\e,Aq\e(Bol) input method with prefix modifiers
effect | prefix | examples
("~A" ?\e,BC\e(B)
("~C" ?\e,BH\e(B)
("~D" ?\e,BO\e(B)
+ ("~E" ?\e,BL\e(B)
("~L" ?\e,B%\e(B)
("~N" ?\e,BR\e(B)
("~O" ?\e,BU\e(B)
("~a" ?\e,Bc\e(B)
("~c" ?\e,Bh\e(B)
("~d" ?\e,Bo\e(B)
+ ("~e" ?\e,Bl\e(B)
("~l" ?\e,B5\e(B)
("~n" ?\e,Br\e(B)
("~o" ?\e,Bu\e(B)
circumflex | ^ | ^a -> \e,Cb\e(B
diaeresis | \" | \"a -> \e,Cd\e(B \"\" -> \e,C(\e(B
cedilla | ~ | ~c -> \e,Cg\e(B ~s -> \e,C:\e(B ~~ -> \e,C8\e(B
- dot above | ~ / . | ~o -> \e,Cu\e(B /o -> \e,Cu\e(B .o -> \e,Cu\e(B
+ dot above | / . | /g -> \e,Cu\e(B .o -> \e,Cu\e(B
misc | \" ~ / | \"s -> \e,C_\e(B ~g -> \e,C;\e(B ~u -> \e,C}\e(B /h -> \e,C1\e(B /i -> \e,C9\e(B
symbol | ~ | ~` -> \e,C"\e(B /# -> \e,C#\e(B /$ -> \e,C$\e(B // -> \e,C0\e(B
" nil t nil nil nil nil nil nil nil nil t)
("\"s" ?\e,C_\e(B)
("\"\"" ?\e,C(\e(B)
("\" " ?\")
- ("~A" ?\e,CC\e(B)
("~C" ?\e,CG\e(B)
- ("~D" ?\e,CP\e(B)
("~N" ?\e,CQ\e(B)
- ("~O" ?\e,CU\e(B)
- ("~a" ?\e,Cc\e(B)
("~c" ?\e,Cg\e(B)
- ("~d" ?\e,Cp\e(B)
("~n" ?\e,Cq\e(B)
- ("~o" ?\e,Cu\e(B)
- ("~$" ?\e,C%\e(B)
("~S" ?\e,C*\e(B)
("~s" ?\e,C:\e(B)
("~G" ?\e,C+\e(B)
("/h" ?\e,C1\e(B)
("/i" ?\e,C9\e(B)
("/z" ?\e,C?\e(B)
- ("/r" ?\e,C.\e(B)
("/." ?\e,C\7f\e(B)
("/#" ?\e,C#\e(B)
("/$" ?\e,C$\e(B)
(quail-define-package
"polish-slash" "Polish" "PL>" nil
- "Polish diacritics in Latin-2 encoding are input as `/[acelnosxzACELNOSXZ]'.
+ "Polish diacritics and slash character are input as `/[acelnosxzACELNOSXZ/]'.
For example, the character named `aogonek' is obtained by `/a'."
nil t t t nil nil nil nil nil nil t)
(quail-define-rules
+ ("//" ?/)
("/a" ?\e,B1\e(B)
("/c" ?\e,Bf\e(B)
("/e" ?\e,Bj\e(B)
("/l" ?\e,B3\e(B)
("/n" ?\e,Bq\e(B)
- ("/o" ?\e,Bs\e(B)
+ ("/o" ?\e,Bs\e(B)
("/s" ?\e,B6\e(B)
("/x" ?\e,B<\e(B)
("/z" ?\e,B?\e(B)
("/E" ?\e,BJ\e(B)
("/L" ?\e,B#\e(B)
("/N" ?\e,BQ\e(B)
- ("/O" ?\e,BS\e(B)
+ ("/O" ?\e,BS\e(B)
("/S" ?\e,B&\e(B)
("/X" ?\e,B,\e(B)
("/Z" ?\e,B/\e(B))
caron | ~ | ~z -> \e,b8\e(B
cedilla | ~ | ~c -> \e,bg\e(B
misc | \" ~ / | \"s -> \e,b_\e(B ~d -> \e,bp\e(B ~t -> \e,b~\e(B /a -> \e,be\e(B /e -> \e,bf\e(B /o -> \e,bx\e(B
+ | \" ~ / | /o -> \e,b=\e(B
symbol | ~ | ~> -> \e,b;\e(B ~< -> \e,b+\e(B ~! -> \e,b!\e(B ~? -> \e,b?\e(B ~~ -> \e,b8\e(B
| ~ | ~s -> \e,b'\e(B ~e -> \e,b$\e(B ~. -> \e,b7\e(B ~$ -> \e,b#\e(B ~u -> \e,b5\e(B
| ~ | ~- -> \e,b-\e(B ~= -> \e,b/\e(B
symbol | _ / | _o -> \e,b:\e(B _a -> \e,b*\e(B // -> \e,b0\e(B /\\ -> \e,bW\e(B _y -> \e,b%\e(B
- | _ / | _: -> \e,bw\e(B /c -> \e,b"\e(B _o -> \e,b=\e(B _O -> \e,b<\e(B /p -> \e,b6\e(B
+ | _ / | _: -> \e,bw\e(B /c -> \e,b"\e(B ~p -> \e,b6\e(B
| _ / | /= -> \e,b,\e(B
- symbol | ^ | ^r -> \e,b.\e(B ^c -> \e,b)\e(B ^1 -> \e,b9\e(B ^2 -> \e,b2\e(B ^3 -> \e,b3\e(B
+ symbol | ^ | ^r -> \e,b.\e(B ^c -> \e,b)\e(B ^1 -> \e,b9\e(B ^2 -> \e,b2\e(B ^3 -> \e,b3\e(B _a -> \e,b*\e(B
" nil t nil nil nil nil nil nil nil nil t)
(quail-define-rules
("\"s" ?\e,b_\e(B)
("\"u" ?\e,b|\e(B)
("\"y" ?\e,b\7f\e(B)
- ("~s" ?\e,b(\e(B)
("\" " ?\")
("~A" ?\e,bC\e(B)
("~C" ?\e,bG\e(B)
("_+" ?\e,b1\e(B)
("_y" ?\e,b%\e(B)
("_:" ?\e,bw\e(B)
+ ("_ " ?\e,b \e(B)
+ ("__" ?_)
("/c" ?\e,b"\e(B)
("/\\" ?\e,bW\e(B)
- ("_o" ?\e,b=\e(B)
- ("_O" ?\e,b<\e(B)
+ ("/o" ?\e,b=\e(B) ; clash with \e,bx\e(B, but \e,bf\e(B uses /
+ ("/O" ?\e,b<\e(B)
("\"Y" ?\e,b>\e(B)
("~s" ?\e,b'\e(B)
- ("/p" ?\e,b6\e(B)
+ ("~p" ?\e,b6\e(B)
;; Is this the best option for Euro entry?
("~e" ?\e,b$\e(B)
("~." ?\e,b7\e(B)
symbol | ^ | ^r -> \e,_.\e(B ^c -> \e,_)\e(B
" nil t nil nil nil nil nil nil nil nil t)
-;; Basically following Latin-1 plus dottiness from Latin-3.
+;; Basically following Latin-1, plus dottiness from Latin-3.
(quail-define-rules
(".B" ?\e,_!\e(B)
(".b" ?\e,_"\e(B)
("~$" ?\e,_#\e(B)
("^r" ?\e,_.\e(B)
("^c" ?\e,_)\e(B))
+
+(quail-define-package
+ "latin-prefix" "Latin" "L>" t
+ "Latin characters input method with prefix modifiers.
+This is the union of various input methods originally made for input
+of characters from a single Latin-N charset.
+
+ effect | prefix | examples
+ ------------+--------+----------
+ acute | ' | 'a -> \e,Aa\e(B, '' -> \e,A4\e(B
+ grave | ` | `a -> \e,A`\e(B
+ circumflex | ^ | ^a -> \e,Ab\e(B
+ diaeresis | \" | \"a -> \e,Ad\e(B \"\" -> \e,A(\e(B
+ tilde | ~ | ~a -> \e,Ac\e(B
+ cedilla | ~ | ~c -> \e,Ag\e(B
+ breve | ~ | ~a -> \e$,1 #\e(B
+ caron | ~ | ~c -> \e$,1 -\e(B
+ dot above | ~ / . | ~o -> \e$,1 A\e(B /o -> \e$,1 A\e(B .o -> \e$,1 A\e(B
+ misc | \" ~ / | \"s -> \e,A_\e(B ~d -> \e,Ap\e(B ~t -> \e,A~\e(B /a -> \e,Ae\e(B /e -> \e,Af\e(B /o -> \e,Ax\e(B
+ symbol | ~ | ~> -> \e,A;\e(B ~< -> \e,A+\e(B ~! -> \e,A!\e(B ~? -> \e,A?\e(B ~~ -> \e,A8\e(B
+ symbol | _ / | _o -> \e,A:\e(B _a -> \e,A*\e(B // -> \e,A0\e(B /\\ -> \e,AW\e(B _y -> \e,A%\e(B
+ symbol | ^ | ^r -> \e,A.\e(B ^c -> \e,A)\e(B ^1 -> \e,A9\e(B ^2 -> \e,A2\e(B ^3 -> \e,A3\e(B
+" nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("' " ?')
+ ("''" ?\e,A4\e(B)
+ ("'A" ?\e,AA\e(B)
+ ("'E" ?\e,AI\e(B)
+ ("'I" ?\e,AM\e(B)
+ ("'O" ?\e,AS\e(B)
+ ("'U" ?\e,AZ\e(B)
+ ("'W" ?\e$,1nb\e(B)
+ ("'Y" ?\e,A]\e(B)
+ ("'a" ?\e,Aa\e(B)
+ ("'e" ?\e,Ai\e(B)
+ ("'i" ?\e,Am\e(B)
+ ("'o" ?\e,As\e(B)
+ ("'u" ?\e,Az\e(B)
+ ("'w" ?\e$,1nc\e(B)
+ ("'y" ?\e,A}\e(B)
+ (".B" ?\e$,1mB\e(B)
+ (".C" ?\e$,1 *\e(B)
+ (".D" ?\e$,1mJ\e(B)
+ (".F" ?\e$,1m^\e(B)
+ (".G" ?\e$,1 @\e(B)
+ (".I" ?\e$,1 P\e(B)
+ (".M" ?\e$,1n \e(B)
+ (".P" ?\e$,1n6\e(B)
+ (".S" ?\e$,1n@\e(B)
+ (".T" ?\e$,1nJ\e(B)
+ (".Z" ?\e$,1!;\e(B)
+ (".b" ?\e$,1mC\e(B)
+ (".c" ?\e$,1 +\e(B)
+ (".d" ?\e$,1mK\e(B)
+ (".f" ?\e$,1m_\e(B)
+ (".g" ?\e$,1 A\e(B)
+ (".m" ?\e$,1n!\e(B)
+ (".p" ?\e$,1n7\e(B)
+ (".s" ?\e$,1nA\e(B)
+ (".t" ?\e$,1nK\e(B)
+ (".z" ?\e$,1!<\e(B)
+ ("/ " ?/)
+ ("/#" ?\e,A#\e(B)
+ ("/$" ?\e,A$\e(B)
+ ("/." ?\e$,1$y\e(B)
+ ("//" ?\e,A0\e(B)
+ ("/2" ?\e,A=\e(B)
+ ("/3" ?\e,A>\e(B)
+ ("/4" ?\e,A<\e(B)
+ ("/=" ?\e,A,\e(B)
+ ("/A" ?\e,AE\e(B)
+ ("/C" ?\e$,1 *\e(B)
+ ("/E" ?\e,AF\e(B)
+ ("/G" ?\e$,1 @\e(B)
+ ("/H" ?\e$,1 F\e(B)
+ ("/I" ?\e$,1 P\e(B)
+ ("/O" ?\e,AX\e(B)
+ ("/O" ?\e$,1 r\e(B)
+ ("/Z" ?\e$,1!;\e(B)
+ ("/\\" ?\e,AW\e(B)
+ ("/a" ?\e,Ae\e(B)
+ ("/c" ?\e,A"\e(B)
+ ("/c" ?\e$,1 +\e(B)
+ ("/e" ?\e,Af\e(B)
+ ("/g" ?\e$,1 A\e(B)
+ ("/h" ?\e$,1 G\e(B)
+ ("/i" ?\e$,1 Q\e(B)
+ ("/o" ?\e,Ax\e(B)
+ ("/o" ?\e$,1 s\e(B)
+ ("/z" ?\e$,1!<\e(B)
+ ("\" " ?\")
+ ("\"A" ?\e,AD\e(B)
+ ("\"E" ?\e,AK\e(B)
+ ("\"I" ?\e,AO\e(B)
+ ("\"O" ?\e,AV\e(B)
+ ("\"U" ?\e,A\\e(B)
+ ("\"W" ?\e$,1nd\e(B)
+ ("\"Y" ?\e$,1!8\e(B)
+ ("\"\"" ?\e,A(\e(B)
+ ("\"a" ?\e,Ad\e(B)
+ ("\"e" ?\e,Ak\e(B)
+ ("\"i" ?\e,Ao\e(B)
+ ("\"o" ?\e,Av\e(B)
+ ("\"s" ?\e,A_\e(B)
+ ("\"u" ?\e,A|\e(B)
+ ("\"w" ?\e$,1ne\e(B)
+ ("\"y" ?\e,A\7f\e(B)
+ ("^ " ?^)
+ ("^1" ?\e,A9\e(B)
+ ("^2" ?\e,A2\e(B)
+ ("^3" ?\e,A3\e(B)
+ ("^A" ?\e,AB\e(B)
+ ("^C" ?\e$,1 (\e(B)
+ ("^E" ?\e,AJ\e(B)
+ ("^G" ?\e$,1 <\e(B)
+ ("^H" ?\e$,1 D\e(B)
+ ("^I" ?\e,AN\e(B)
+ ("^J" ?\e$,1 T\e(B)
+ ("^O" ?\e,AT\e(B)
+ ("^S" ?\e$,1 |\e(B)
+ ("^U" ?\e,A[\e(B)
+ ("^W" ?\e$,1!4\e(B)
+ ("^Y" ?\e$,1!6\e(B)
+ ("^^" ?^)
+ ("^a" ?\e,Ab\e(B)
+ ("^c" ?\e,A)\e(B)
+ ("^c" ?\e$,1 )\e(B)
+ ("^e" ?\e,Aj\e(B)
+ ("^g" ?\e$,1 =\e(B)
+ ("^h" ?\e$,1 E\e(B)
+ ("^i" ?\e,An\e(B)
+ ("^j" ?\e$,1 U\e(B)
+ ("^o" ?\e,At\e(B)
+ ("^r" ?\e,A.\e(B)
+ ("^s" ?\e$,1 }\e(B)
+ ("^u" ?\e,A{\e(B)
+ ("^w" ?\e$,1!5\e(B)
+ ("^y" ?\e$,1!7\e(B)
+ ("_+" ?\e,A1\e(B)
+ ("_:" ?\e,Aw\e(B)
+ ("_a" ?\e,A*\e(B)
+ ("_o" ?\e,A:\e(B)
+ ("_y" ?\e,A%\e(B)
+ ("_ " ?\e,A \e(B)
+ ("` " ?`)
+ ("`A" ?\e,A@\e(B)
+ ("`E" ?\e,AH\e(B)
+ ("`I" ?\e,AL\e(B)
+ ("`O" ?\e,AR\e(B)
+ ("`U" ?\e,AY\e(B)
+ ("`W" ?\e$,1n`\e(B)
+ ("`Y" ?\e$,1or\e(B)
+ ("``" ?`)
+ ("`a" ?\e,A`\e(B)
+ ("`e" ?\e,Ah\e(B)
+ ("`i" ?\e,Al\e(B)
+ ("`o" ?\e,Ar\e(B)
+ ("`u" ?\e,Ay\e(B)
+ ("`w" ?\e$,1na\e(B)
+ ("`y" ?\e$,1os\e(B)
+ ("~ " ?~)
+ ("~!" ?\e,A!\e(B)
+ ("~$" ?\e,A#\e(B)
+ ("~-" ?\e,A-\e(B)
+ ("~." ?\e,A7\e(B)
+ ("~<" ?\\e,A+\e(B)
+ ("~=" ?\e,A/\e(B)
+ ("~>" ?\\e,A;\e(B)
+ ("~?" ?\e,A?\e(B)
+ ("~A" ?\e,AC\e(B)
+ ("~C" ?\e,AG\e(B)
+ ("~D" ?\e,AP\e(B)
+ ("~G" ?\e$,1 >\e(B)
+ ("~N" ?\e,AQ\e(B)
+ ("~O" ?\e,AU\e(B)
+ ("~O" ?\e$,1 @\e(B)
+ ("~S" ?\e$,1 ~\e(B)
+ ("~S" ?\e$,1! \e(B)
+ ("~T" ?\e,A^\e(B)
+ ("~U" ?\e$,1!,\e(B)
+ ("~Z" ?\e$,1!=\e(B)
+ ("~`" ?\e$,1$x\e(B)
+ ("~a" ?\e,Ac\e(B)
+ ("~c" ?\e,Ag\e(B)
+ ("~d" ?\e,Ap\e(B)
+ ("~e" ?\e$,1tL\e(B)
+ ("~g" ?\e$,1 ?\e(B)
+ ("~n" ?\e,Aq\e(B)
+ ("~o" ?\e,Au\e(B)
+ ("~o" ?\e$,1 A\e(B)
+ ("~p" ?\e,A6\e(B)
+ ("~s" ?\e,A'\e(B)
+ ("~s" ?\e$,1 \7f\e(B)
+ ("~s" ?\e$,1!!\e(B)
+ ("~t" ?\e,A~\e(B)
+ ("~u" ?\e,A5\e(B)
+ ("~u" ?\e$,1!-\e(B)
+ ("~x" ?\e,A$\e(B)
+ ("~z" ?\e$,1!>\e(B)
+ ("~|" ?\e,A&\e(B)
+ ("~~" ?\e,A8\e(B)
+)
+
+;;; arch-tag: 83017837-6b84-4366-b183-e0577e3ed838
+;;; latin-pre.el ends here
HCoop / bpt / emacs.git / blobdiff