25 |
;;; Commentary: |
;;; Commentary: |
26 |
|
|
27 |
;; Welsh input following the Yudit map by david@sheetmusic.org.uk. |
;; Welsh input following the Yudit map by david@sheetmusic.org.uk. |
|
;; This is set up to produce utf-8. A Latin-8 version of most of it |
|
|
;; is commented-out at the end. |
|
28 |
|
|
29 |
;;; Code: |
;;; Code: |
30 |
|
|
32 |
|
|
33 |
(quail-define-package |
(quail-define-package |
34 |
"welsh" "Welsh" "$,1!4(B" t |
"welsh" "Welsh" "$,1!4(B" t |
35 |
"Welsh postfix input method, using Unicode" |
"Welsh postfix input method." |
36 |
nil t nil nil nil nil nil nil nil nil t) |
nil t nil nil nil nil nil nil nil nil t) |
37 |
|
|
38 |
(quail-define-rules |
(quail-define-rules |
116 |
;; "hawlfraint" (copyright). Dyma arwyddlun hawlfraint. |
;; "hawlfraint" (copyright). Dyma arwyddlun hawlfraint. |
117 |
("(h)" ?$,1W(B)) |
("(h)" ?$,1W(B)) |
118 |
|
|
|
;; In the following line paren changed to bracket to avoid an error |
|
|
;; message from quail-update-leim-list-file, which doesn't know about |
|
|
;; Lisp comments. |
|
|
;; [quail-define-package |
|
|
;; "welsh" "Welsh" "$,1!4(B" t |
|
|
;; "Welsh postfix input method, using Latin-8" |
|
|
;; nil t nil nil nil nil nil nil nil nil t) |
|
|
|
|
|
;; (quail-define-rules |
|
|
;; ("A\\" ?,A@(B) |
|
|
;; ("A/" ?,AA(B) |
|
|
;; ("A^" ?,AB(B) |
|
|
;; ("A+" ?,AB(B) |
|
|
;; ("A\"" ?,AD(B) |
|
|
;; ("a\\" ?,A`(B) |
|
|
;; ("a/" ?,Aa(B) |
|
|
;; ("a^" ?,Ab(B) |
|
|
;; ("a+" ?,Ab(B) |
|
|
;; ("a\"" ?,Ad(B) |
|
|
|
|
|
;; ("E\\" ?,AH(B) |
|
|
;; ("E/" ?,AI(B) |
|
|
;; ("E^" ?,AJ(B) |
|
|
;; ("E+" ?,AJ(B) |
|
|
;; ("E\"" ?,AK(B) |
|
|
;; ("e\\" ?,Ah(B) |
|
|
;; ("e/" ?,Ai(B) |
|
|
;; ("e^" ?,Aj(B) |
|
|
;; ("e+" ?,Aj(B) |
|
|
;; ("e\"" ?,Ak(B) |
|
|
|
|
|
;; ("I\\" ?,AL(B) |
|
|
;; ("I/" ?,AM(B) |
|
|
;; ("I^" ?,AN(B) |
|
|
;; ("I+" ?,AN(B) |
|
|
;; ("I\"" ?,AO(B) |
|
|
;; ("i\\" ?,Al(B) |
|
|
;; ("i/" ?,Am(B) |
|
|
;; ("i^" ?,An(B) |
|
|
;; ("i+" ?,An(B) |
|
|
;; ("i\"" ?,Ao(B) |
|
|
|
|
|
;; ("O\\" ?,AR(B) |
|
|
;; ("O/" ?,AS(B) |
|
|
;; ("O^" ?,AT(B) |
|
|
;; ("O+" ?,AT(B) |
|
|
;; ("O\"" ?,AV(B) |
|
|
;; ("o\\" ?,Ar(B) |
|
|
;; ("o/" ?,As(B) |
|
|
;; ("o^" ?,At(B) |
|
|
;; ("o+" ?,At(B) |
|
|
;; ("o\"" ?,Av(B) |
|
|
|
|
|
;; ("U\\" ?,AY(B) |
|
|
;; ("U/" ?,AZ(B) |
|
|
;; ("U^" ?,A[(B) |
|
|
;; ("U+" ?,A[(B) |
|
|
;; ("U\"" ?,A\(B) |
|
|
;; ("u\\" ?,Ay(B) |
|
|
;; ("u/" ?,Az(B) |
|
|
;; ("u^" ?,A{(B) |
|
|
;; ("u+" ?,A{(B) |
|
|
;; ("u\"" ?,A|(B) |
|
|
|
|
|
;; ("Y\\" ?,A,(B) |
|
|
;; ("Y/" ?,A](B) |
|
|
;; ("Y^" ?,A^(B) |
|
|
;; ("Y+" ?,A^(B) |
|
|
;; ("Y\"" ?,A/(B) |
|
|
;; ("y\\" ?,A<(B) |
|
|
;; ("y/" ?,A}(B) |
|
|
;; ("y\"" ?,A(B) |
|
|
;; ("y^" ?,A~(B) |
|
|
;; ("y+" ?,A~(B) |
|
|
|
|
|
;; ("W\\" ?,A((B) |
|
|
;; ("W/" ?,A*(B) |
|
|
;; ("W^" ?,AP(B) |
|
|
;; ("W+" ?,AP(B) |
|
|
;; ("W\"" ?,A=(B) |
|
|
;; ("w\\" ?,A8(B) |
|
|
;; ("w/" ?,A:(B) |
|
|
;; ("w^" ?,Ap(B) |
|
|
;; ("w+" ?,Ap(B) |
|
|
;; ("w\"" ?,A>(B)) |
|
|
|
|
|
|
|
119 |
;;; welsh.el ends here |
;;; welsh.el ends here |