("latin-1-prefix"): Add rules for symbols.

diff --git a/leim/quail/latin-pre.el b/leim/quail/latin-pre.el
index 64a33d281748cb17df3397c7850cd2ef1b12997e..f0557427f36ac0d80ad39f0dd637d4857c7b34dd 100644 (file)
--- a/leim/quail/latin-pre.el
+++ b/leim/quail/latin-pre.el
@@ -25,6 +25,9 @@
 ;;; Commentary:
 
 ;; All key translation maps are 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>
 
 ;;; Code:
 
@@ -39,12 +42,15 @@
     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
+  diaeresis  |   \"    | \"a -> \e,Ad\e(B  \"\" -> \e,A(\e(B
     tilde    |   ~    | ~a -> \e,Ac\e(B
    cedilla   |   ~    | ~c -> \e,Ag\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
+    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
+             |   ~    | ~p -> \e,A'\e(B  ~x -> \e,A$\e(B  ~. -> \e,A7\e(B  ~$ -> \e,A#\e(B  ~u -> \e,A5\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
+   symbol    |   ^    | ^r -> \e,A.\e(B  ^c -> \e,A)\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
@@ -128,6 +134,24 @@
  ("/ " ?/)
  ("_o" ?\e,A:\e(B)
  ("_a" ?\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)
+ ("/4" ?\e,A<\e(B)
+ ("/3" ?\e,A>\e(B)
+ ("~p" ?\e,A'\e(B)
+ ("~x" ?\e,A$\e(B)
+ ("~." ?\e,A7\e(B)
+ ("~$" ?\e,A#\e(B)
+ ("~u" ?\e,A5\e(B)
+ ("^r" ?\e,A.\e(B)
+ ("^c" ?\e,A)\e(B)
+ ("^2" ?\e,A2\e(B)
+ ("^3" ?\e,A3\e(B)
 )
 
 (quail-define-package