/[emacs]/emacs/leim/quail/welsh.el
ViewVC logotype

Diff of /emacs/leim/quail/welsh.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by pj, Tue Dec 25 10:49:54 2001 UTC revision 1.4.2.1 by fx, Tue Jul 30 11:41:04 2002 UTC
# Line 25  Line 25 
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    
# Line 34  Line 32 
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
# Line 118  Line 116 
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

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.4.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26