X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/be567141bcb5e39ca67cdb120b0bad899704eacc..625088623c53102f90b991182ed9324fc74b6095:/leim/quail/latin-pre.el diff --git a/leim/quail/latin-pre.el b/leim/quail/latin-pre.el index e75de685ac..8c809f2df2 100644 --- a/leim/quail/latin-pre.el +++ b/leim/quail/latin-pre.el @@ -1,8 +1,10 @@ -;;; 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) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2006 +;; Free Software Foundation, Inc. +;; Copyright (C) 1997, 1998, 1999, 2000, 2005 +;; National Institute of Advanced Industrial Science and Technology (AIST) +;; Registration Number H14PRO021 ;; Keywords: mule, multilingual, latin, input method @@ -20,13 +22,13 @@ ;; 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 ) ;; by R.F. Smith ;; @@ -36,6 +38,12 @@ ;; ;; latin-[89]-prefix: Dave Love +;; 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) @@ -58,11 +66,10 @@ | ~ | ~p -> ,A6(B ~- -> ,A-(B ~= -> ,A/(B ~| -> ,A&(B symbol | _ / | _o -> ,A:(B _a -> ,A*(B // -> ,A0(B /\\ -> ,AW(B _y -> ,A%(B | _ / | _: -> ,Aw(B /c -> ,A"(B /2 -> ,A=(B /4 -> ,A<(B /3 -> ,A>(B - | _ / | /= => ,A,(B + | _ / | /= -> ,A,(B symbol | ^ | ^r -> ,A.(B ^c -> ,A)(B ^1 -> ,A9(B ^2 -> ,A2(B ^3 -> ,A3(B " nil t nil nil nil nil nil nil nil nil t) -;; Fixme: should we have non-break space somehow? If so, how? (quail-define-rules ("'A" ?,AA(B) ("'E" ?,AI(B) @@ -144,10 +151,12 @@ ("/ " ?/) ("_o" ?,A:(B) ("_a" ?,A*(B) + ("_ " ?,A (B) ;; Symbols added by Roland Smith ("_+" ?,A1(B) ("_y" ?,A%(B) ("_:" ?,Aw(B) + ("__" ?_) ("/c" ?,A"(B) ("/\\" ?,AW(B) ("/2" ?,A=(B) @@ -246,7 +255,7 @@ Key translation rules are: ) (quail-define-package - "french-prefix" "Latin-1" "FR>" t + "french-prefix" "French" "FR>" t "French (Fran,Ag(Bais) input method with prefix modifiers effect | prefix | examples @@ -254,7 +263,7 @@ Key translation rules are: acute | ' | 'e -> ,Ai(B grave | ` | `a -> ,A`(B circumflex | ^ | ^a -> ,Ab(B - diaeresis | \" | \"i -> ,Ao(B + diaeresis | \" | \"i -> ,Ao(B cedilla | ~ or , | ~c -> ,Ag(B ,c -> ,Ag(B symbol | ~ | ~> -> ,A;(B ~< -> ,A+(B " nil t nil nil nil nil nil nil nil nil t) @@ -292,10 +301,10 @@ Key translation rules are: ("~>" ?\,A;(B) ("~C" ?,AG(B) ("~c" ?,Ag(B) - ("~," ?,) + ("~ " ?~) (",C" ?,AG(B) (",c" ?,Ag(B) - (", " ?~) + (", " ?,) ) (quail-define-package @@ -342,10 +351,10 @@ Key translation rules are: ("''" ?') ("\"\"" ?\")) (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 -> ,AD(B -> \"O -> ,AV(B \"U -> ,A\(B \"s -> ?,A_(B + \"A -> ,AD(B -> \"O -> ,AV(B \"U -> ,A\(B \"s -> ,A_(B " nil t nil nil nil nil nil nil nil nil t) (quail-define-rules @@ -432,7 +441,7 @@ Key translation rules are: ) (quail-define-package - "spanish-prefix" "Latin-1" "ES>" t + "spanish-prefix" "Spanish" "ES>" t "Spanish (Espa,Aq(Bol) input method with prefix modifiers effect | prefix | examples @@ -551,6 +560,7 @@ Key translation rules are: ("~A" ?,BC(B) ("~C" ?,BH(B) ("~D" ?,BO(B) + ("~E" ?,BL(B) ("~L" ?,B%(B) ("~N" ?,BR(B) ("~O" ?,BU(B) @@ -562,6 +572,7 @@ Key translation rules are: ("~a" ?,Bc(B) ("~c" ?,Bh(B) ("~d" ?,Bo(B) + ("~e" ?,Bl(B) ("~l" ?,B5(B) ("~n" ?,Br(B) ("~o" ?,Bu(B) @@ -587,7 +598,7 @@ Key translation rules are: circumflex | ^ | ^a -> ,Cb(B diaeresis | \" | \"a -> ,Cd(B \"\" -> ,C((B cedilla | ~ | ~c -> ,Cg(B ~s -> ,C:(B ~~ -> ,C8(B - dot above | ~ / . | ~o -> ,Cu(B /o -> ,Cu(B .o -> ,Cu(B + dot above | / . | /g -> ,Cu(B .o -> ,Cu(B misc | \" ~ / | \"s -> ,C_(B ~g -> ,C;(B ~u -> ,C}(B /h -> ,C1(B /i -> ,C9(B symbol | ~ | ~` -> ,C"(B /# -> ,C#(B /$ -> ,C$(B // -> ,C0(B " nil t nil nil nil nil nil nil nil nil t) @@ -652,17 +663,10 @@ Key translation rules are: ("\"s" ?,C_(B) ("\"\"" ?,C((B) ("\" " ?\") - ("~A" ?,CC(B) ("~C" ?,CG(B) - ("~D" ?,CP(B) ("~N" ?,CQ(B) - ("~O" ?,CU(B) - ("~a" ?,Cc(B) ("~c" ?,Cg(B) - ("~d" ?,Cp(B) ("~n" ?,Cq(B) - ("~o" ?,Cu(B) - ("~$" ?,C%(B) ("~S" ?,C*(B) ("~s" ?,C:(B) ("~G" ?,C+(B) @@ -682,7 +686,6 @@ Key translation rules are: ("/h" ?,C1(B) ("/i" ?,C9(B) ("/z" ?,C?(B) - ("/r" ?,C.(B) ("/." ?,C(B) ("/#" ?,C#(B) ("/$" ?,C$(B) @@ -700,17 +703,18 @@ Key translation rules are: (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" ?,B1(B) ("/c" ?,Bf(B) ("/e" ?,Bj(B) ("/l" ?,B3(B) ("/n" ?,Bq(B) - ("/o" ?,Bs(B) + ("/o" ?,Bs(B) ("/s" ?,B6(B) ("/x" ?,B<(B) ("/z" ?,B?(B) @@ -719,7 +723,7 @@ For example, the character named `aogonek' is obtained by `/a'." ("/E" ?,BJ(B) ("/L" ?,B#(B) ("/N" ?,BQ(B) - ("/O" ?,BS(B) + ("/O" ?,BS(B) ("/S" ?,B&(B) ("/X" ?,B,(B) ("/Z" ?,B/(B)) @@ -833,6 +837,8 @@ For example, the character named `aogonek' is obtained by `/a'." ("_+" ?,b1(B) ("_y" ?,b%(B) ("_:" ?,bw(B) + ("_ " ?,b (B) + ("__" ?_) ("/c" ?,b"(B) ("/\\" ?,bW(B) ("/o" ?,b=(B) ; clash with ,bx(B, but ,bf(B uses / @@ -875,7 +881,7 @@ For example, the character named `aogonek' is obtained by `/a'." symbol | ^ | ^r -> ,_.(B ^c -> ,_)(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" ?,_!(B) (".b" ?,_"(B) @@ -980,4 +986,208 @@ For example, the character named `aogonek' is obtained by `/a'." ("^r" ?,_.(B) ("^c" ?,_)(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 -> ,Aa(B, '' -> ,A4(B + grave | ` | `a -> ,A`(B + circumflex | ^ | ^a -> ,Ab(B + diaeresis | \" | \"a -> ,Ad(B \"\" -> ,A((B + tilde | ~ | ~a -> ,Ac(B + cedilla | ~ | ~c -> ,Ag(B + breve | ~ | ~a -> $,1 #(B + caron | ~ | ~c -> $,1 -(B + dot above | ~ / . | ~o -> $,1 A(B /o -> $,1 A(B .o -> $,1 A(B + misc | \" ~ / | \"s -> ,A_(B ~d -> ,Ap(B ~t -> ,A~(B /a -> ,Ae(B /e -> ,Af(B /o -> ,Ax(B + symbol | ~ | ~> -> ,A;(B ~< -> ,A+(B ~! -> ,A!(B ~? -> ,A?(B ~~ -> ,A8(B + symbol | _ / | _o -> ,A:(B _a -> ,A*(B // -> ,A0(B /\\ -> ,AW(B _y -> ,A%(B + symbol | ^ | ^r -> ,A.(B ^c -> ,A)(B ^1 -> ,A9(B ^2 -> ,A2(B ^3 -> ,A3(B +" nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("' " ?') + ("''" ?,A4(B) + ("'A" ?,AA(B) + ("'E" ?,AI(B) + ("'I" ?,AM(B) + ("'O" ?,AS(B) + ("'U" ?,AZ(B) + ("'W" ?$,1nb(B) + ("'Y" ?,A](B) + ("'a" ?,Aa(B) + ("'e" ?,Ai(B) + ("'i" ?,Am(B) + ("'o" ?,As(B) + ("'u" ?,Az(B) + ("'w" ?$,1nc(B) + ("'y" ?,A}(B) + (".B" ?$,1mB(B) + (".C" ?$,1 *(B) + (".D" ?$,1mJ(B) + (".F" ?$,1m^(B) + (".G" ?$,1 @(B) + (".I" ?$,1 P(B) + (".M" ?$,1n (B) + (".P" ?$,1n6(B) + (".S" ?$,1n@(B) + (".T" ?$,1nJ(B) + (".Z" ?$,1!;(B) + (".b" ?$,1mC(B) + (".c" ?$,1 +(B) + (".d" ?$,1mK(B) + (".f" ?$,1m_(B) + (".g" ?$,1 A(B) + (".m" ?$,1n!(B) + (".p" ?$,1n7(B) + (".s" ?$,1nA(B) + (".t" ?$,1nK(B) + (".z" ?$,1!<(B) + ("/ " ?/) + ("/#" ?,A#(B) + ("/$" ?,A$(B) + ("/." ?$,1$y(B) + ("//" ?,A0(B) + ("/2" ?,A=(B) + ("/3" ?,A>(B) + ("/4" ?,A<(B) + ("/=" ?,A,(B) + ("/A" ?,AE(B) + ("/C" ?$,1 *(B) + ("/E" ?,AF(B) + ("/G" ?$,1 @(B) + ("/H" ?$,1 F(B) + ("/I" ?$,1 P(B) + ("/O" ?,AX(B) + ("/O" ?$,1 r(B) + ("/Z" ?$,1!;(B) + ("/\\" ?,AW(B) + ("/a" ?,Ae(B) + ("/c" ?,A"(B) + ("/c" ?$,1 +(B) + ("/e" ?,Af(B) + ("/g" ?$,1 A(B) + ("/h" ?$,1 G(B) + ("/i" ?$,1 Q(B) + ("/o" ?,Ax(B) + ("/o" ?$,1 s(B) + ("/z" ?$,1!<(B) + ("\" " ?\") + ("\"A" ?,AD(B) + ("\"E" ?,AK(B) + ("\"I" ?,AO(B) + ("\"O" ?,AV(B) + ("\"U" ?,A\(B) + ("\"W" ?$,1nd(B) + ("\"Y" ?$,1!8(B) + ("\"\"" ?,A((B) + ("\"a" ?,Ad(B) + ("\"e" ?,Ak(B) + ("\"i" ?,Ao(B) + ("\"o" ?,Av(B) + ("\"s" ?,A_(B) + ("\"u" ?,A|(B) + ("\"w" ?$,1ne(B) + ("\"y" ?,A(B) + ("^ " ?^) + ("^1" ?,A9(B) + ("^2" ?,A2(B) + ("^3" ?,A3(B) + ("^A" ?,AB(B) + ("^C" ?$,1 ((B) + ("^E" ?,AJ(B) + ("^G" ?$,1 <(B) + ("^H" ?$,1 D(B) + ("^I" ?,AN(B) + ("^J" ?$,1 T(B) + ("^O" ?,AT(B) + ("^S" ?$,1 |(B) + ("^U" ?,A[(B) + ("^W" ?$,1!4(B) + ("^Y" ?$,1!6(B) + ("^^" ?^) + ("^a" ?,Ab(B) + ("^c" ?,A)(B) + ("^c" ?$,1 )(B) + ("^e" ?,Aj(B) + ("^g" ?$,1 =(B) + ("^h" ?$,1 E(B) + ("^i" ?,An(B) + ("^j" ?$,1 U(B) + ("^o" ?,At(B) + ("^r" ?,A.(B) + ("^s" ?$,1 }(B) + ("^u" ?,A{(B) + ("^w" ?$,1!5(B) + ("^y" ?$,1!7(B) + ("_+" ?,A1(B) + ("_:" ?,Aw(B) + ("_a" ?,A*(B) + ("_o" ?,A:(B) + ("_y" ?,A%(B) + ("_ " ?,A (B) + ("` " ?`) + ("`A" ?,A@(B) + ("`E" ?,AH(B) + ("`I" ?,AL(B) + ("`O" ?,AR(B) + ("`U" ?,AY(B) + ("`W" ?$,1n`(B) + ("`Y" ?$,1or(B) + ("``" ?`) + ("`a" ?,A`(B) + ("`e" ?,Ah(B) + ("`i" ?,Al(B) + ("`o" ?,Ar(B) + ("`u" ?,Ay(B) + ("`w" ?$,1na(B) + ("`y" ?$,1os(B) + ("~ " ?~) + ("~!" ?,A!(B) + ("~$" ?,A#(B) + ("~-" ?,A-(B) + ("~." ?,A7(B) + ("~<" ?\,A+(B) + ("~=" ?,A/(B) + ("~>" ?\,A;(B) + ("~?" ?,A?(B) + ("~A" ?,AC(B) + ("~C" ?,AG(B) + ("~D" ?,AP(B) + ("~G" ?$,1 >(B) + ("~N" ?,AQ(B) + ("~O" ?,AU(B) + ("~O" ?$,1 @(B) + ("~S" ?$,1 ~(B) + ("~S" ?$,1! (B) + ("~T" ?,A^(B) + ("~U" ?$,1!,(B) + ("~Z" ?$,1!=(B) + ("~`" ?$,1$x(B) + ("~a" ?,Ac(B) + ("~c" ?,Ag(B) + ("~d" ?,Ap(B) + ("~e" ?$,1tL(B) + ("~g" ?$,1 ?(B) + ("~n" ?,Aq(B) + ("~o" ?,Au(B) + ("~o" ?$,1 A(B) + ("~p" ?,A6(B) + ("~s" ?,A'(B) + ("~s" ?$,1 (B) + ("~s" ?$,1!!(B) + ("~t" ?,A~(B) + ("~u" ?,A5(B) + ("~u" ?$,1!-(B) + ("~x" ?,A$(B) + ("~z" ?$,1!>(B) + ("~|" ?,A&(B) + ("~~" ?,A8(B) +) + +;;; arch-tag: 83017837-6b84-4366-b183-e0577e3ed838 ;;; latin-pre.el ends here