Mercurial > emacs

changeset 31268:4c6d8d40e71c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
("latin-9-prefix"): Change entries for ? and ?.
author Dave Love <fx@gnu.org>
date Tue, 29 Aug 2000 13:50:04 +0000
parents fb79f8ee3c17
children 64bb4634d6d8
files leim/quail/latin-pre.el
diffstat 1 files changed, 270 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/leim/quail/latin-pre.el	Tue Aug 29 13:36:32 2000 +0000
+++ b/leim/quail/latin-pre.el	Tue Aug 29 13:50:04 2000 +0000
@@ -2,6 +2,7 @@
 
 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
+;; Copyright (C) 2000 Free Software Foundation, Inc.
 
 ;; Keywords: mule, multilingual, latin, input method
 
@@ -24,7 +25,7 @@
 
 ;;; Commentary:
 
-;; All key translation maps are copied from iso-acc.el.
+;; Key translation maps were originally copied from iso-acc.el.
 ;; 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>
@@ -32,6 +33,8 @@
 ;; polish-slash:
 ;;  Author:	W,B3(Bodek Bzyl <matwb@univ.gda.pl>
 ;;  Maintainer:	W,B3(Bodek Bzyl <matwb@univ.gda.pl>
+;;
+;; latin-[89]-prefix: Dave Love <fx@gnu.org>
 
 ;;; Code:
 
@@ -51,12 +54,15 @@
    cedilla   |   ~    | ~c -> ,Ag(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
-             |   ~    | ~s -> ,A'(B  ~x -> ,A$(B  ~. -> ,A7(B  ~$ -> ,A#(B  ~u -> ,A5(B  ~p -> ,A6(B
+             |   ~    | ~s -> ,A'(B  ~x -> ,A$(B  ~. -> ,A7(B  ~$ -> ,A#(B  ~u -> ,A5(B
+             |   ~    | ~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
-   symbol    |   ^    | ^r -> ,A.(B  ^c -> ,A)(B  ^2 -> ,A2(B  ^3 -> ,A3(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?  Is so, how?
 (quail-define-rules
  ("'A" ?,AA(B)
  ("'E" ?,AI(B)
@@ -155,8 +161,13 @@
  ("~u" ?,A5(B)
  ("^r" ?,A.(B)
  ("^c" ?,A)(B)
+ ("^1" ?,A9(B)
  ("^2" ?,A2(B)
  ("^3" ?,A3(B)
+ ("~-" ?,A-(B)
+ ("~|" ?,A&(B)
+ ("/=" ?,A,(B)
+ ("~=" ?,A/(B)
 )
 
 (quail-define-package
@@ -712,3 +723,259 @@
  ("/S" ?,B&(B)
  ("/X" ?,B,(B)
  ("/Z" ?,B/(B))
+
+(quail-define-package
+ "latin-9-prefix" "Latin-9" "0>" t
+ "Latin-9 characters input method with prefix modifiers
+
+    effect   | prefix | examples
+ ------------+--------+----------
+    acute    |   '    | 'a -> ,ba(B
+    grave    |   `    | `a -> ,b`(B
+  circumflex |   ^    | ^a -> ,bb(B
+  diaeresis  |   \"    | \"a -> ,bd(B, \"Y -> ,b>(B
+    tilde    |   ~    | ~a -> ,bc(B
+    caron    |   ~    | ~z -> ,b8(B
+   cedilla   |   ~    | ~c -> ,bg(B
+    misc     | \" ~ /  | \"s -> ,b_(B  ~d -> ,bp(B  ~t -> ,b~(B  /a -> ,be(B  /e -> ,bf(B  /o -> ,bx(B
+   symbol    |   ~    | ~> -> ,b;(B  ~< -> ,b+(B  ~! -> ,b!(B  ~? -> ,b?(B  ~~ -> ,b8(B
+             |   ~    | ~s -> ,b'(B  ~e -> ,b$(B  ~. -> ,b7(B  ~$ -> ,b#(B  ~u -> ,b5(B
+             |   ~    | ~- -> ,b-(B  ~= -> ,b/(B
+   symbol    |  _ /   | _o -> ,b:(B  _a -> ,b*(B  // -> ,b0(B  /\\ -> ,bW(B  _y -> ,b%(B
+             |  _ /   | _: -> ,bw(B  /c -> ,b"(B  _o -> ,b=(B  _O -> ,b<(B  /p -> ,b6(B
+             |  _ /   | /= -> ,b,(B
+   symbol    |   ^    | ^r -> ,b.(B  ^c -> ,b)(B  ^1 -> ,b9(B  ^2 -> ,b2(B  ^3 -> ,b3(B
+" nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("'A" ?,bA(B)
+ ("'E" ?,bI(B)
+ ("'I" ?,bM(B)
+ ("'O" ?,bS(B)
+ ("'U" ?,bZ(B)
+ ("'Y" ?,b](B)
+ ("'a" ?,ba(B)
+ ("'e" ?,bi(B)
+ ("'i" ?,bm(B)
+ ("'o" ?,bs(B)
+ ("'u" ?,bz(B)
+ ("'y" ?,b}(B)
+ ("' " ?')
+ ("`A" ?,b@(B)
+ ("`E" ?,bH(B)
+ ("`I" ?,bL(B)
+ ("`O" ?,bR(B)
+ ("`U" ?,bY(B)
+ ("`a" ?,b`(B)
+ ("`e" ?,bh(B)
+ ("`i" ?,bl(B)
+ ("`o" ?,br(B)
+ ("`u" ?,by(B)
+ ("``" ?`)
+ ("` " ?`)
+ ("^A" ?,bB(B)
+ ("^E" ?,bJ(B)
+ ("^I" ?,bN(B)
+ ("^O" ?,bT(B)
+ ("^U" ?,b[(B)
+ ("^a" ?,bb(B)
+ ("^e" ?,bj(B)
+ ("^i" ?,bn(B)
+ ("^o" ?,bt(B)
+ ("^u" ?,b{(B)
+ ("^^" ?^)
+ ("^ " ?^)
+ ("\"A" ?,bD(B)
+ ("\"E" ?,bK(B)
+ ("\"I" ?,bO(B)
+ ("\"O" ?,bV(B)
+ ("\"U" ?,b\(B)
+ ("\"a" ?,bd(B)
+ ("\"e" ?,bk(B)
+ ("\"i" ?,bo(B)
+ ("\"o" ?,bv(B)
+ ("\"s" ?,b_(B)
+ ("\"u" ?,b|(B)
+ ("\"y" ?,b(B)
+ ("~s" ?,b((B)
+ ("\" " ?\")
+ ("~A" ?,bC(B)
+ ("~C" ?,bG(B)
+ ("~D" ?,bP(B)
+ ("~N" ?,bQ(B)
+ ("~O" ?,bU(B)
+ ("~S" ?,b&(B)
+ ("~T" ?,b^(B)
+ ("~Z" ?,b4(B)
+ ("~a" ?,bc(B)
+ ("~c" ?,bg(B)
+ ("~d" ?,bp(B)
+ ("~n" ?,bq(B)
+ ("~o" ?,bu(B)
+ ("~s" ?,b((B)
+ ("~t" ?,b~(B)
+ ("~z" ?,b8(B)
+ ("~>" ?\,b;(B)
+ ("~<" ?\,b+(B)
+ ("~!" ?,b!(B)
+ ("~?" ?,b?(B)
+ ("~ " ?~)
+ ("/A" ?,bE(B)
+ ("/E" ?,bF(B)
+ ("/O" ?,bX(B)
+ ("/a" ?,be(B)
+ ("/e" ?,bf(B)
+ ("/o" ?,bx(B)
+ ("//" ?,b0(B)
+ ("/ " ?/)
+ ("_o" ?,b:(B)
+ ("_a" ?,b*(B)
+ ("_+" ?,b1(B)
+ ("_y" ?,b%(B)
+ ("_:" ?,bw(B)
+ ("/c" ?,b"(B)
+ ("/\\" ?,bW(B)
+ ("_o" ?,b=(B)
+ ("_O" ?,b<(B)
+ ("\"Y" ?,b>(B)
+ ("~s" ?,b'(B)
+ ("/p" ?,b6(B)
+ ;; Is this the best option for Euro entry?
+ ("~e" ?,b$(B)
+ ("~." ?,b7(B)
+ ("~$" ?,b#(B)
+ ("~u" ?,b5(B)
+ ("^r" ?,b.(B)
+ ("^c" ?,b)(B)
+ ("^1" ?,b9(B)
+ ("^2" ?,b2(B)
+ ("^3" ?,b3(B)
+ ("~-" ?,b-(B)
+ ("~=" ?,b/(B)
+ ("/=" ?,b,(B))
+
+;; Latin-8 was done by an Englishman -- Johnny Celt should take a
+;; squint at it.
+
+(quail-define-package
+ "latin-8-prefix" "Latin-8" "8>" t
+ "Latin-8 characters input method with prefix modifiers
+
+    effect   | prefix | examples
+ ------------+--------+----------
+    acute    |   '    | 'a -> ,_a(B
+    grave    |   `    | `a -> ,_`(B
+  circumflex |   ^    | ^w -> ,_p(B
+  diaeresis  |   \"    | \"a -> ,_d(B
+  dot above  |   .    | .b -> ,_"(B
+    tilde    |   ~    | ~a -> ,_c(B
+   cedilla   |   ~    | ~c -> ,_g(B
+    misc     | \" ~ /  | \"s -> ,__(B   /a -> ,_e(B  /e -> ,_f(B  /o -> ,_x(B
+             |   ~    | ~s -> ,_'(B  ~$ -> ,_#(B  ~p -> ,_6(B
+   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.
+(quail-define-rules
+ (".B" ?,_!(B)
+ (".b" ?,_"(B)
+ (".c" ?,_%(B)
+ (".C" ?,_$(B)
+ (".D" ?,_&(B)
+ (".d" ?,_+(B)
+ (".f" ?,_1(B)
+ (".F" ?,_0(B)
+ (".g" ?,_3(B)
+ (".G" ?,_2(B)
+ (".m" ?,_5(B)
+ (".M" ?,_4(B)
+ (".p" ?,_9(B)
+ (".P" ?,_7(B)
+ (".s" ?,_?(B)
+ (".S" ?,_;(B)
+ (".t" ?,_w(B)
+ (".T" ?,_W(B)
+ ("'A" ?,_A(B)
+ ("'E" ?,_I(B)
+ ("'I" ?,_M(B)
+ ("'O" ?,_S(B)
+ ("'U" ?,_Z(B)
+ ("'Y" ?,_](B)
+ ("'W" ?,_*(B)
+ ("'a" ?,_a(B)
+ ("'e" ?,_i(B)
+ ("'i" ?,_m(B)
+ ("'o" ?,_s(B)
+ ("'u" ?,_z(B)
+ ("'w" ?,_:(B)
+ ("'y" ?,_}(B)
+ ("' " ?')
+ ("`A" ?,_@(B)
+ ("`E" ?,_H(B)
+ ("`I" ?,_L(B)
+ ("`O" ?,_R(B)
+ ("`U" ?,_Y(B)
+ ("`W" ?,_((B)
+ ("`Y" ?,_,(B)
+ ("`a" ?,_`(B)
+ ("`e" ?,_h(B)
+ ("`i" ?,_l(B)
+ ("`o" ?,_r(B)
+ ("`u" ?,_y(B)
+ ("`w" ?,_8(B)
+ ("`y" ?,_<(B)
+ ("``" ?`)
+ ("` " ?`)
+ ("^A" ?,_B(B)
+ ("^E" ?,_J(B)
+ ("^I" ?,_N(B)
+ ("^O" ?,_T(B)
+ ("^U" ?,_[(B)
+ ("^a" ?,_b(B)
+ ("^e" ?,_j(B)
+ ("^i" ?,_n(B)
+ ("^o" ?,_t(B)
+ ("^u" ?,_{(B)
+ ("^w" ?,_p(B)
+ ("^W" ?,_P(B)
+ ("^y" ?,_~(B)
+ ("^Y" ?,_^(B)
+ ("^^" ?^)
+ ("^ " ?^)
+ ("\"A" ?,_D(B)
+ ("\"E" ?,_K(B)
+ ("\"I" ?,_O(B)
+ ("\"O" ?,_V(B)
+ ("\"U" ?,_\(B)
+ ("\"a" ?,_d(B)
+ ("\"e" ?,_k(B)
+ ("\"i" ?,_o(B)
+ ("\"o" ?,_v(B)
+ ("\"s" ?,__(B)
+ ("\"u" ?,_|(B)
+ ("\"w" ?,_>(B)
+ ("\"W" ?,_=(B)
+ ("\"y" ?,_(B)
+ ("\"Y" ?,_/(B)
+ ("\" " ?\")
+ ("~A" ?,_C(B)
+ ("~C" ?,_G(B)
+ ("~N" ?,_Q(B)
+ ("~O" ?,_U(B)
+ ("~a" ?,_c(B)
+ ("~c" ?,_g(B)
+ ("~n" ?,_q(B)
+ ("~o" ?,_u(B)
+ ("~ " ?~)
+ ("/A" ?,_E(B)
+ ("/E" ?,_F(B)
+ ("/O" ?,_X(B)
+ ("/a" ?,_e(B)
+ ("/e" ?,_f(B)
+ ("/o" ?,_x(B)
+ ("/ " ?/)
+ ("~p" ?,_6(B)
+ ("~s" ?,_'(B)
+ ("~$" ?,_#(B)
+ ("^r" ?,_.(B)
+ ("^c" ?,_)(B))