emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/leim/quail/welsh.el [emacs-unicode-2]


From: Kenichi Handa
Subject: [Emacs-diffs] Changes to emacs/leim/quail/welsh.el [emacs-unicode-2]
Date: Mon, 08 Sep 2003 08:45:55 -0400

Index: emacs/leim/quail/welsh.el
diff -c /dev/null emacs/leim/quail/welsh.el:1.5.6.1
*** /dev/null   Mon Sep  8 08:45:55 2003
--- emacs/leim/quail/welsh.el   Mon Sep  8 08:45:39 2003
***************
*** 0 ****
--- 1,203 ----
+ ;;; welsh.el --- Quail package for inputting Welsh characters  -*-coding: 
iso-2022-7bit;-*-
+ 
+ ;; Copyright (C) 2001 Free Software Foundation, Inc.
+ 
+ ;; Author: Dave Love <address@hidden>
+ ;; Keywords: i18n
+ 
+ ;; This file is part of GNU Emacs.
+ 
+ ;; This file is free software; you can redistribute it and/or modify
+ ;; it under the terms of the GNU General Public License as published by
+ ;; the Free Software Foundation; either version 2, or (at your option)
+ ;; any later version.
+ 
+ ;; This file is distributed in the hope that it will be useful,
+ ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ ;; GNU General Public License for more details.
+ 
+ ;; You should have received a copy of the GNU General Public License
+ ;; along with GNU Emacs; see the file COPYING.  If not, write to
+ ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ ;; Boston, MA 02111-1307, USA.
+ 
+ ;;; Commentary:
+ 
+ ;; Welsh input following the Yudit map by address@hidden
+ 
+ ;;; Code:
+ 
+ (require 'quail)
+ 
+ (quail-define-package
+  "welsh" "Welsh" "$,1!4(B" t
+  "Welsh postfix input method"
+  nil t nil nil nil nil nil nil nil nil t)
+ 
+ (quail-define-rules
+  ("A\\" ?,address@hidden(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\\" ?$,1or(B)
+  ("Y/" ?,A](B)
+  ("Y^" ?$,1!6(B)
+  ("Y+" ?$,1!6(B)
+  ("Y\"" ?$,1!8(B)
+  ("y\\" ?$,1os(B)
+  ("y/" ?,A}(B)
+  ("y\"" ?,A(B)
+  ("y^" ?$,1!7(B)
+  ("y+" ?$,1!7(B)
+ 
+  ("W\\" ?$,1n`(B)
+  ("W/" ?$,1nb(B)
+  ("W^" ?$,1!4(B)
+  ("W+" ?$,1!4(B)
+  ("W\"" ?$,1nd(B)
+  ("w\\" ?$,1na(B)
+  ("w/" ?$,1nc(B)
+  ("w^" ?$,1!5(B)
+  ("w+" ?$,1!5(B)
+  ("w\"" ?$,1ne(B)
+ 
+  ;; "hawlfraint" (copyright).  Dyma arwyddlun hawlfraint.
+  ("(h)" ?$,1W(B))
+ 
+ ;; (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\\" ?,address@hidden(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))
+ 
+ 
+ ;;; welsh.el ends here




reply via email to

[Prev in Thread] Current Thread [Next in Thread]