HCoop / bpt / emacs.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Add arch taglines
[bpt/emacs.git] / leim / quail / welsh.el
CommitLineData
7115232b
DL		 1;;; welsh.el --- Quail package for inputting Welsh characters -*-coding: iso-2022-7bit;-*-
2
3;; Copyright (C) 2001 Free Software Foundation, Inc.
4
5;; Author: Dave Love <fx@gnu.org>
6;; Keywords: i18n
7
041f4d74
PJ		 8;; This file is part of GNU Emacs.
9
7115232b
DL		 10;; This file is free software; you can redistribute it and/or modify
11;; it under the terms of the GNU General Public License as published by
12;; the Free Software Foundation; either version 2, or (at your option)
13;; any later version.
14
15;; This file is distributed in the hope that it will be useful,
16;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18;; GNU General Public License for more details.
19
20;; You should have received a copy of the GNU General Public License
21;; along with GNU Emacs; see the file COPYING. If not, write to
22;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23;; Boston, MA 02111-1307, USA.
24
25;;; Commentary:
26
27;; Welsh input following the Yudit map by david@sheetmusic.org.uk.
28;; This is set up to produce utf-8. A Latin-8 version of most of it
29;; is commented-out at the end.
30
31;;; Code:
32
33(require 'quail)
34
35(quail-define-package
36 "welsh" "Welsh" "\e$,1!4\e(B" t
37 "Welsh postfix input method, using Unicode"
38 nil t nil nil nil nil nil nil nil nil t)
39
40(quail-define-rules
41 ("A\\" ?\e,A@\e(B)
42 ("A/" ?\e,AA\e(B)
43 ("A^" ?\e,AB\e(B)
44 ("A+" ?\e,AB\e(B)
45 ("A\"" ?\e,AD\e(B)
46 ("a\\" ?\e,A`\e(B)
47 ("a/" ?\e,Aa\e(B)
48 ("a^" ?\e,Ab\e(B)
49 ("a+" ?\e,Ab\e(B)
50 ("a\"" ?\e,Ad\e(B)
51
52 ("E\\" ?\e,AH\e(B)
53 ("E/" ?\e,AI\e(B)
54 ("E^" ?\e,AJ\e(B)
55 ("E+" ?\e,AJ\e(B)
56 ("E\"" ?\e,AK\e(B)
57 ("e\\" ?\e,Ah\e(B)
58 ("e/" ?\e,Ai\e(B)
59 ("e^" ?\e,Aj\e(B)
60 ("e+" ?\e,Aj\e(B)
61 ("e\"" ?\e,Ak\e(B)
62
63 ("I\\" ?\e,AL\e(B)
64 ("I/" ?\e,AM\e(B)
65 ("I^" ?\e,AN\e(B)
66 ("I+" ?\e,AN\e(B)
67 ("I\"" ?\e,AO\e(B)
68 ("i\\" ?\e,Al\e(B)
69 ("i/" ?\e,Am\e(B)
70 ("i^" ?\e,An\e(B)
71 ("i+" ?\e,An\e(B)
72 ("i\"" ?\e,Ao\e(B)
73
74 ("O\\" ?\e,AR\e(B)
75 ("O/" ?\e,AS\e(B)
76 ("O^" ?\e,AT\e(B)
77 ("O+" ?\e,AT\e(B)
78 ("O\"" ?\e,AV\e(B)
79 ("o\\" ?\e,Ar\e(B)
80 ("o/" ?\e,As\e(B)
81 ("o^" ?\e,At\e(B)
82 ("o+" ?\e,At\e(B)
83 ("o\"" ?\e,Av\e(B)
84
85 ("U\\" ?\e,AY\e(B)
86 ("U/" ?\e,AZ\e(B)
87 ("U^" ?\e,A[\e(B)
88 ("U+" ?\e,A[\e(B)
89 ("U\"" ?\e,A\\e(B)
90 ("u\\" ?\e,Ay\e(B)
91 ("u/" ?\e,Az\e(B)
92 ("u^" ?\e,A{\e(B)
93 ("u+" ?\e,A{\e(B)
94 ("u\"" ?\e,A|\e(B)
95
96 ("Y\\" ?\e$,1or\e(B)
97 ("Y/" ?\e,A]\e(B)
98 ("Y^" ?\e$,1!6\e(B)
99 ("Y+" ?\e$,1!6\e(B)
100 ("Y\"" ?\e$,1!8\e(B)
101 ("y\\" ?\e$,1os\e(B)
102 ("y/" ?\e,A}\e(B)
103 ("y\"" ?\e,A\7f\e(B)
104 ("y^" ?\e$,1!7\e(B)
105 ("y+" ?\e$,1!7\e(B)
106
107 ("W\\" ?\e$,1n`\e(B)
108 ("W/" ?\e$,1nb\e(B)
109 ("W^" ?\e$,1!4\e(B)
110 ("W+" ?\e$,1!4\e(B)
111 ("W\"" ?\e$,1nd\e(B)
112 ("w\\" ?\e$,1na\e(B)
113 ("w/" ?\e$,1nc\e(B)
114 ("w^" ?\e$,1!5\e(B)
115 ("w+" ?\e$,1!5\e(B)
116 ("w\"" ?\e$,1ne\e(B)
117
118 ;; "hawlfraint" (copyright). Dyma arwyddlun hawlfraint.
119 ("(h)" ?\e$,1\7fW\e(B))
120
f640e93b 121;; (quail-define-package
7115232b
DL		 122;; "welsh" "Welsh" "\e$,1!4\e(B" t
123;; "Welsh postfix input method, using Latin-8"
124;; nil t nil nil nil nil nil nil nil nil t)
125
126;; (quail-define-rules
127;; ("A\\" ?\e,A@\e(B)
128;; ("A/" ?\e,AA\e(B)
129;; ("A^" ?\e,AB\e(B)
130;; ("A+" ?\e,AB\e(B)
131;; ("A\"" ?\e,AD\e(B)
132;; ("a\\" ?\e,A`\e(B)
133;; ("a/" ?\e,Aa\e(B)
134;; ("a^" ?\e,Ab\e(B)
135;; ("a+" ?\e,Ab\e(B)
136;; ("a\"" ?\e,Ad\e(B)
137
138;; ("E\\" ?\e,AH\e(B)
139;; ("E/" ?\e,AI\e(B)
140;; ("E^" ?\e,AJ\e(B)
141;; ("E+" ?\e,AJ\e(B)
142;; ("E\"" ?\e,AK\e(B)
143;; ("e\\" ?\e,Ah\e(B)
144;; ("e/" ?\e,Ai\e(B)
145;; ("e^" ?\e,Aj\e(B)
146;; ("e+" ?\e,Aj\e(B)
147;; ("e\"" ?\e,Ak\e(B)
148
149;; ("I\\" ?\e,AL\e(B)
150;; ("I/" ?\e,AM\e(B)
151;; ("I^" ?\e,AN\e(B)
152;; ("I+" ?\e,AN\e(B)
153;; ("I\"" ?\e,AO\e(B)
154;; ("i\\" ?\e,Al\e(B)
155;; ("i/" ?\e,Am\e(B)
156;; ("i^" ?\e,An\e(B)
157;; ("i+" ?\e,An\e(B)
158;; ("i\"" ?\e,Ao\e(B)
159
160;; ("O\\" ?\e,AR\e(B)
161;; ("O/" ?\e,AS\e(B)
162;; ("O^" ?\e,AT\e(B)
163;; ("O+" ?\e,AT\e(B)
164;; ("O\"" ?\e,AV\e(B)
165;; ("o\\" ?\e,Ar\e(B)
166;; ("o/" ?\e,As\e(B)
167;; ("o^" ?\e,At\e(B)
168;; ("o+" ?\e,At\e(B)
169;; ("o\"" ?\e,Av\e(B)
170
171;; ("U\\" ?\e,AY\e(B)
172;; ("U/" ?\e,AZ\e(B)
173;; ("U^" ?\e,A[\e(B)
174;; ("U+" ?\e,A[\e(B)
175;; ("U\"" ?\e,A\\e(B)
176;; ("u\\" ?\e,Ay\e(B)
177;; ("u/" ?\e,Az\e(B)
178;; ("u^" ?\e,A{\e(B)
179;; ("u+" ?\e,A{\e(B)
180;; ("u\"" ?\e,A|\e(B)
181
182;; ("Y\\" ?\e,A,\e(B)
183;; ("Y/" ?\e,A]\e(B)
184;; ("Y^" ?\e,A^\e(B)
185;; ("Y+" ?\e,A^\e(B)
186;; ("Y\"" ?\e,A/\e(B)
187;; ("y\\" ?\e,A<\e(B)
188;; ("y/" ?\e,A}\e(B)
189;; ("y\"" ?\e,A\7f\e(B)
190;; ("y^" ?\e,A~\e(B)
191;; ("y+" ?\e,A~\e(B)
192
193;; ("W\\" ?\e,A(\e(B)
194;; ("W/" ?\e,A*\e(B)
195;; ("W^" ?\e,AP\e(B)
196;; ("W+" ?\e,AP\e(B)
197;; ("W\"" ?\e,A=\e(B)
198;; ("w\\" ?\e,A8\e(B)
199;; ("w/" ?\e,A:\e(B)
200;; ("w^" ?\e,Ap\e(B)
201;; ("w+" ?\e,Ap\e(B)
202;; ("w\"" ?\e,A>\e(B))
203
204
ab5796a9 205;;; arch-tag: aeef0eae-0a50-4606-9120-020d59d5e208
7115232b 206;;; welsh.el ends here
Unnamed repository; edit this file 'description' to name the repository.