summaryrefslogtreecommitdiff
path: root/leim
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>2000-03-02 03:55:43 +0000
committerKenichi Handa <handa@m17n.org>2000-03-02 03:55:43 +0000
commit4b23d21df725c350e23d6c5d1e0895d968612e49 (patch)
tree4f58b303362d23e0a82255da6973034bf08e22ef /leim
parent8e82f0c258c4dda935cc4e6985c346ca1497b1d3 (diff)
downloademacs-4b23d21df725c350e23d6c5d1e0895d968612e49.tar.gz
("latin-1-prefix"): Add rules for symbols.
Diffstat (limited to 'leim')
-rw-r--r--leim/quail/latin-pre.el32
1 files changed, 28 insertions, 4 deletions
diff --git a/leim/quail/latin-pre.el b/leim/quail/latin-pre.el
index 64a33d28174..f0557427f36 100644
--- 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 -> ,Aa(B, '' -> ,A4(B
grave | ` | `a -> ,A`(B
circumflex | ^ | ^a -> ,Ab(B
- diaeresis | \" | \"a -> ,Ad(B \"\" -> ,A((B
+ diaeresis | \" | \"a -> ,Ad(B \"\" -> ,A((B
tilde | ~ | ~a -> ,Ac(B
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
- symbol | _ / | _o -> ,A:(B _a -> ,A*(B // -> ,A0(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
+ | ~ | ~p -> ,A'(B ~x -> ,A$(B ~. -> ,A7(B ~$ -> ,A#(B ~u -> ,A5(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
" nil t nil nil nil nil nil nil nil nil t)
(quail-define-rules
@@ -128,6 +134,24 @@
("/ " ?/)
("_o" ?,A:(B)
("_a" ?,A*(B)
+;; Symbols added by Roland Smith <rsmith@xs4all.nl>
+ ("_+" ?,A1(B)
+ ("_y" ?,A%(B)
+ ("_:" ?,Aw(B)
+ ("/c" ?,A"(B)
+ ("/\\" ?,AW(B)
+ ("/2" ?,A=(B)
+ ("/4" ?,A<(B)
+ ("/3" ?,A>(B)
+ ("~p" ?,A'(B)
+ ("~x" ?,A$(B)
+ ("~." ?,A7(B)
+ ("~$" ?,A#(B)
+ ("~u" ?,A5(B)
+ ("^r" ?,A.(B)
+ ("^c" ?,A)(B)
+ ("^2" ?,A2(B)
+ ("^3" ?,A3(B)
)
(quail-define-package