Mercurial > emacs

comparison leim/quail/latin-pre.el @ 27940:ad4ce97753b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
("latin-1-prefix"): Add rules for symbols.
author Kenichi Handa <handa@m17n.org>
date Thu, 02 Mar 2000 03:55:43 +0000
parents 62c80c35f341
children 08cd5ffb5799
comparison
equal deleted inserted replaced
27939:e931b73f3b4f 27940:ad4ce97753b4
23 ;; Boston, MA 02111-1307, USA. 23 ;; Boston, MA 02111-1307, USA.
24 24
25 ;;; Commentary: 25 ;;; Commentary:
26 26
27 ;; All key translation maps are copied from iso-acc.el. 27 ;; All key translation maps are copied from iso-acc.el.
28 ;; Latin-1-prefix: extra special characters added, adapted from the vim
29 ;; digraphs (from J.H.M.Dassen <jdassen@wi.leidenuniv.nl>)
30 ;; by R.F. Smith <rsmith@xs4all.nl>
28 31
29 ;;; Code: 32 ;;; Code:
30 33
31 (require 'quail) 34 (require 'quail)
32 35
37 effect | prefix | examples 40 effect | prefix | examples
38 ------------+--------+---------- 41 ------------+--------+----------
39 acute | ' | 'a -> ,Aa(B, '' -> ,A4(B 42 acute | ' | 'a -> ,Aa(B, '' -> ,A4(B
40 grave | ` | `a -> ,A`(B 43 grave | ` | `a -> ,A`(B
41 circumflex | ^ | ^a -> ,Ab(B 44 circumflex | ^ | ^a -> ,Ab(B
42 diaeresis | \" | \"a -> ,Ad(B \"\" -> ,A((B 45 diaeresis | \" | \"a -> ,Ad(B \"\" -> ,A((B
43 tilde | ~ | ~a -> ,Ac(B 46 tilde | ~ | ~a -> ,Ac(B
44 cedilla | ~ | ~c -> ,Ag(B 47 cedilla | ~ | ~c -> ,Ag(B
45 misc | \" ~ / | \"s -> ,A_(B ~d -> ,Ap(B ~t -> ,A~(B /a -> ,Ae(B /e -> ,Af(B /o -> ,Ax(B 48 misc | \" ~ / | \"s -> ,A_(B ~d -> ,Ap(B ~t -> ,A~(B /a -> ,Ae(B /e -> ,Af(B /o -> ,Ax(B
46 symbol | ~ | ~> -> ,A;(B ~< -> ,A+(B ~! -> ,A!(B ~? -> ,A?(B ~~ -> ,A8(B 49 symbol | ~ | ~> -> ,A;(B ~< -> ,A+(B ~! -> ,A!(B ~? -> ,A?(B ~~ -> ,A8(B
47 symbol | _ / | _o -> ,A:(B _a -> ,A*(B // -> ,A0(B 50 | ~ | ~p -> ,A'(B ~x -> ,A$(B ~. -> ,A7(B ~$ -> ,A#(B ~u -> ,A5(B
51 symbol | _ / | _o -> ,A:(B _a -> ,A*(B // -> ,A0(B /\\ -> ,AW(B _y -> ,A%(B
52 | _ / | _: -> ,Aw(B /c -> ,A"(B /2 -> ,A=(B /4 -> ,A<(B /3 -> ,A>(B
53 symbol | ^ | ^r -> ,A.(B ^c -> ,A)(B ^2 -> ,A2(B ^3 -> ,A3(B
48 " nil t nil nil nil nil nil nil nil nil t) 54 " nil t nil nil nil nil nil nil nil nil t)
49 55
50 (quail-define-rules 56 (quail-define-rules
51 ("'A" ?,AA(B) 57 ("'A" ?,AA(B)
52 ("'E" ?,AI(B) 58 ("'E" ?,AI(B)
126 ("/o" ?,Ax(B) 132 ("/o" ?,Ax(B)
127 ("//" ?,A0(B) 133 ("//" ?,A0(B)
128 ("/ " ?/) 134 ("/ " ?/)
129 ("_o" ?,A:(B) 135 ("_o" ?,A:(B)
130 ("_a" ?,A*(B) 136 ("_a" ?,A*(B)
137 ;; Symbols added by Roland Smith <rsmith@xs4all.nl>
138 ("_+" ?,A1(B)
139 ("_y" ?,A%(B)
140 ("_:" ?,Aw(B)
141 ("/c" ?,A"(B)
142 ("/\\" ?,AW(B)
143 ("/2" ?,A=(B)
144 ("/4" ?,A<(B)
145 ("/3" ?,A>(B)
146 ("~p" ?,A'(B)
147 ("~x" ?,A$(B)
148 ("~." ?,A7(B)
149 ("~$" ?,A#(B)
150 ("~u" ?,A5(B)
151 ("^r" ?,A.(B)
152 ("^c" ?,A)(B)
153 ("^2" ?,A2(B)
154 ("^3" ?,A3(B)
131 ) 155 )
132 156
133 (quail-define-package 157 (quail-define-package
134 "catalan-prefix" "Latin-1" "CA>" t 158 "catalan-prefix" "Latin-1" "CA>" t
135 "Catalan and Spanish input method with prefix modifiers 159 "Catalan and Spanish input method with prefix modifiers