Mercurial > emacs

changeset 23446:2a31f1833c0e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
("latin-1-alt-postfix"): Add a method to enter the small superscript underlined o and a. ("italian-alt-postfix"): Change it to something useful and different from italian-postfix.
author Richard M. Stallman <rms@gnu.org>
date Tue, 13 Oct 1998 15:41:11 +0000
parents 838c9bd2adcd
children 7ccd43d053fd
files leim/quail/latin-alt.el
diffstat 1 files changed, 45 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/leim/quail/latin-alt.el	Tue Oct 13 15:40:56 1998 +0000
+++ b/leim/quail/latin-alt.el	Tue Oct 13 15:41:11 1998 +0000
@@ -39,7 +39,8 @@
   tilde      |    ~    | a~ -> ,Ac(B
   cedilla    |    /    | c/ -> ,Ag(B
   nordic     |    /    | d/ -> ,Ap(B   t/ -> ,A~(B   a/ -> ,Ae(B   e/ -> ,Af(B   o/ -> ,Ax(B
-  others     |   /<>   | s/ -> ,A_(B   ?/ -> ,A?(B   !/ -> ,A!(B   << -> ,A+(B   >> -> ,A;(B
+  others     |   /<>   | s/ -> ,A_(B   ?/ -> ,A?(B   !/ -> ,A!(B
+             | various | << -> ,A+(B   >> -> ,A;(B   o_ -> ,A:(B   a_ -> ,A*(B
 
 It would be natural to use comma for cedillas, but that would be
 inconvenient in practice because commas are needed very often after a
@@ -115,6 +116,8 @@
  ("!/" ?,A!(B)
  ("<<" ?,A+(B)
  (">>" ?,A;(B)
+ ("o_" ?,A:(B)
+ ("a_" ?,A*(B)
 
  ("A``" ["A`"])
  ("A''" ["A'"])
@@ -182,6 +185,8 @@
  ("!//" ["!/"])
  ("<<<" ["<<"])
  (">>>" [">>"])
+ ("o__" ["o_"])
+ ("a__" ["a_"])
  )
 
 (quail-define-package
@@ -1180,37 +1185,71 @@
  "italian-alt-postfix" "Latin-1" "IT<" t
  "Italian (Italiano) input method with postfix modifiers
 
-A` -> ,A@(B
-E` -> ,AH(B
-I` -> ,AL(B
-O` -> ,AR(B
-U` -> ,AY(B
+a' -> ,Aa(B    A' -> ,AA(B    a` -> ,A`(B    A` -> ,A@(B    i^ -> ,An(B    << -> ,A+(B
+e' -> ,Ai(B    E' -> ,AI(B    e` -> ,Ah(B    E` -> ,AH(B    I^ -> ,AN(B    >> -> ,A;(B
+i' -> ,Am(B    I' -> ,AM(B    i` -> ,Al(B    I` -> ,AL(B               o_ -> ,A:(B
+o' -> ,As(B    O' -> ,AS(B    o` -> ,Ar(B    O` -> ,AR(B               a_ -> ,A*(B
+u' -> ,Az(B    U' -> ,AZ(B    u` -> ,Ay(B    U` -> ,AY(B    
+
+This method is for purists who like accents the old way.
 
 Doubling the postfix separates the letter and postfix: e.g. a`` -> a`
 " nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("A`" ?,A@(B)
+ ("A'" ?,AA(B)
  ("a`" ?,A`(B)
+ ("a'" ?,Aa(B)
  ("E`" ?,AH(B)
+ ("E'" ?,AI(B)
  ("e`" ?,Ah(B)
+ ("e'" ?,Ai(B)
  ("I`" ?,AL(B)
  ("i`" ?,Al(B)
+ ("I'" ?,AM(B)
+ ("i'" ?,Am(B)
+ ("I^" ?,AN(B)
+ ("i^" ?,An(B)
  ("O`" ?,AR(B)
  ("o`" ?,Ar(B)
+ ("O'" ?,AS(B)
+ ("o'" ?,As(B)
  ("U`" ?,AY(B)
  ("u`" ?,Ay(B)
+ ("U'" ?,AZ(B)
+ ("u'" ?,Az(B)
+ ("<<" ?,A+(B)
+ (">>" ?,A;(B)
+ ("o_" ?,A:(B)
+ ("a_" ?,A*(B)
 
  ("A``" ["A`"])
+ ("A''" ["A'"])
  ("a``" ["a`"])
+ ("a''" ["a'"])
  ("E``" ["E`"])
+ ("E''" ["E'"])
  ("e``" ["e`"])
+ ("e''" ["e'"])
  ("I``" ["I`"])
  ("i``" ["i`"])
+ ("I''" ["I'"])
+ ("i''" ["i'"])
+ ("I^^" ["I^"])
+ ("i^^" ["i^"])
  ("O``" ["O`"])
  ("o``" ["o`"])
+ ("O''" ["O'"])
+ ("o''" ["o'"])
  ("U``" ["U`"])
  ("u``" ["u`"])
+ ("U''" ["U'"])
+ ("u''" ["u'"])
+ ("<<<" ["<<"])
+ (">>>" [">>"])
+ ("o__" ["o_"])
+ ("a__" ["a_"])
  )
 
 (quail-define-package