-;;; welsh.el --- Quail package for inputting Welsh characters -*-coding: iso-2022-7bit;-*-
-
-;; Copyright (C) 2001-2012 Free Software Foundation, Inc.
-
-;; Author: Dave Love <fx@gnu.org>
-;; Keywords: i18n
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs 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 3 of the License, or
-;; (at your option) any later version.
-
-;; GNU Emacs 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. If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Welsh input following the Yudit map by david@sheetmusic.org.uk.
-
-;;; Code:
-
-(require 'quail)
-
-(quail-define-package
- "welsh" "Welsh" "\e$,1!4\e(B" t
- "Welsh postfix input method"
- nil t nil nil nil nil nil nil nil nil t)
-
-(quail-define-rules
- ("A\\" ?\e,A@\e(B)
- ("A/" ?\e,AA\e(B)
- ("A^" ?\e,AB\e(B)
- ("A+" ?\e,AB\e(B)
- ("A\"" ?\e,AD\e(B)
- ("a\\" ?\e,A`\e(B)
- ("a/" ?\e,Aa\e(B)
- ("a^" ?\e,Ab\e(B)
- ("a+" ?\e,Ab\e(B)
- ("a\"" ?\e,Ad\e(B)
-
- ("E\\" ?\e,AH\e(B)
- ("E/" ?\e,AI\e(B)
- ("E^" ?\e,AJ\e(B)
- ("E+" ?\e,AJ\e(B)
- ("E\"" ?\e,AK\e(B)
- ("e\\" ?\e,Ah\e(B)
- ("e/" ?\e,Ai\e(B)
- ("e^" ?\e,Aj\e(B)
- ("e+" ?\e,Aj\e(B)
- ("e\"" ?\e,Ak\e(B)
-
- ("I\\" ?\e,AL\e(B)
- ("I/" ?\e,AM\e(B)
- ("I^" ?\e,AN\e(B)
- ("I+" ?\e,AN\e(B)
- ("I\"" ?\e,AO\e(B)
- ("i\\" ?\e,Al\e(B)
- ("i/" ?\e,Am\e(B)
- ("i^" ?\e,An\e(B)
- ("i+" ?\e,An\e(B)
- ("i\"" ?\e,Ao\e(B)
-
- ("O\\" ?\e,AR\e(B)
- ("O/" ?\e,AS\e(B)
- ("O^" ?\e,AT\e(B)
- ("O+" ?\e,AT\e(B)
- ("O\"" ?\e,AV\e(B)
- ("o\\" ?\e,Ar\e(B)
- ("o/" ?\e,As\e(B)
- ("o^" ?\e,At\e(B)
- ("o+" ?\e,At\e(B)
- ("o\"" ?\e,Av\e(B)
-
- ("U\\" ?\e,AY\e(B)
- ("U/" ?\e,AZ\e(B)
- ("U^" ?\e,A[\e(B)
- ("U+" ?\e,A[\e(B)
- ("U\"" ?\e,A\\e(B)
- ("u\\" ?\e,Ay\e(B)
- ("u/" ?\e,Az\e(B)
- ("u^" ?\e,A{\e(B)
- ("u+" ?\e,A{\e(B)
- ("u\"" ?\e,A|\e(B)
-
- ("Y\\" ?\e$,1or\e(B)
- ("Y/" ?\e,A]\e(B)
- ("Y^" ?\e$,1!6\e(B)
- ("Y+" ?\e$,1!6\e(B)
- ("Y\"" ?\e$,1!8\e(B)
- ("y\\" ?\e$,1os\e(B)
- ("y/" ?\e,A}\e(B)
- ("y\"" ?\e,A\7f\e(B)
- ("y^" ?\e$,1!7\e(B)
- ("y+" ?\e$,1!7\e(B)
-
- ("W\\" ?\e$,1n`\e(B)
- ("W/" ?\e$,1nb\e(B)
- ("W^" ?\e$,1!4\e(B)
- ("W+" ?\e$,1!4\e(B)
- ("W\"" ?\e$,1nd\e(B)
- ("w\\" ?\e$,1na\e(B)
- ("w/" ?\e$,1nc\e(B)
- ("w^" ?\e$,1!5\e(B)
- ("w+" ?\e$,1!5\e(B)
- ("w\"" ?\e$,1ne\e(B)
-
- ;; "hawlfraint" (copyright). Dyma arwyddlun hawlfraint.
- ("(h)" ?\e$,1\7fW\e(B))
-
-;; (quail-define-package
-;; "welsh" "Welsh" "\e$,1!4\e(B" t
-;; "Welsh postfix input method, using Latin-8"
-;; nil t nil nil nil nil nil nil nil nil t)
-
-;; (quail-define-rules
-;; ("A\\" ?\e,A@\e(B)
-;; ("A/" ?\e,AA\e(B)
-;; ("A^" ?\e,AB\e(B)
-;; ("A+" ?\e,AB\e(B)
-;; ("A\"" ?\e,AD\e(B)
-;; ("a\\" ?\e,A`\e(B)
-;; ("a/" ?\e,Aa\e(B)
-;; ("a^" ?\e,Ab\e(B)
-;; ("a+" ?\e,Ab\e(B)
-;; ("a\"" ?\e,Ad\e(B)
-
-;; ("E\\" ?\e,AH\e(B)
-;; ("E/" ?\e,AI\e(B)
-;; ("E^" ?\e,AJ\e(B)
-;; ("E+" ?\e,AJ\e(B)
-;; ("E\"" ?\e,AK\e(B)
-;; ("e\\" ?\e,Ah\e(B)
-;; ("e/" ?\e,Ai\e(B)
-;; ("e^" ?\e,Aj\e(B)
-;; ("e+" ?\e,Aj\e(B)
-;; ("e\"" ?\e,Ak\e(B)
-
-;; ("I\\" ?\e,AL\e(B)
-;; ("I/" ?\e,AM\e(B)
-;; ("I^" ?\e,AN\e(B)
-;; ("I+" ?\e,AN\e(B)
-;; ("I\"" ?\e,AO\e(B)
-;; ("i\\" ?\e,Al\e(B)
-;; ("i/" ?\e,Am\e(B)
-;; ("i^" ?\e,An\e(B)
-;; ("i+" ?\e,An\e(B)
-;; ("i\"" ?\e,Ao\e(B)
-
-;; ("O\\" ?\e,AR\e(B)
-;; ("O/" ?\e,AS\e(B)
-;; ("O^" ?\e,AT\e(B)
-;; ("O+" ?\e,AT\e(B)
-;; ("O\"" ?\e,AV\e(B)
-;; ("o\\" ?\e,Ar\e(B)
-;; ("o/" ?\e,As\e(B)
-;; ("o^" ?\e,At\e(B)
-;; ("o+" ?\e,At\e(B)
-;; ("o\"" ?\e,Av\e(B)
-
-;; ("U\\" ?\e,AY\e(B)
-;; ("U/" ?\e,AZ\e(B)
-;; ("U^" ?\e,A[\e(B)
-;; ("U+" ?\e,A[\e(B)
-;; ("U\"" ?\e,A\\e(B)
-;; ("u\\" ?\e,Ay\e(B)
-;; ("u/" ?\e,Az\e(B)
-;; ("u^" ?\e,A{\e(B)
-;; ("u+" ?\e,A{\e(B)
-;; ("u\"" ?\e,A|\e(B)
-
-;; ("Y\\" ?\e,A,\e(B)
-;; ("Y/" ?\e,A]\e(B)
-;; ("Y^" ?\e,A^\e(B)
-;; ("Y+" ?\e,A^\e(B)
-;; ("Y\"" ?\e,A/\e(B)
-;; ("y\\" ?\e,A<\e(B)
-;; ("y/" ?\e,A}\e(B)
-;; ("y\"" ?\e,A\7f\e(B)
-;; ("y^" ?\e,A~\e(B)
-;; ("y+" ?\e,A~\e(B)
-
-;; ("W\\" ?\e,A(\e(B)
-;; ("W/" ?\e,A*\e(B)
-;; ("W^" ?\e,AP\e(B)
-;; ("W+" ?\e,AP\e(B)
-;; ("W\"" ?\e,A=\e(B)
-;; ("w\\" ?\e,A8\e(B)
-;; ("w/" ?\e,A:\e(B)
-;; ("w^" ?\e,Ap\e(B)
-;; ("w+" ?\e,Ap\e(B)
-;; ("w\"" ?\e,A>\e(B))
-
-
-;;; welsh.el ends here
+;;; welsh.el --- Quail package for inputting Welsh characters -*-coding: utf-8;-*-
+
+;; Copyright (C) 2001-2013 Free Software Foundation, Inc.
+
+;; Author: Dave Love <fx@gnu.org>
+;; Keywords: i18n
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs 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 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs 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. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Welsh input following the Yudit map by david@sheetmusic.org.uk.
+
+;;; Code:
+
+(require 'quail)
+
+(quail-define-package
+ "welsh" "Welsh" "Ŵ" t
+ "Welsh postfix input method"
+ nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("A\\" ?À)
+ ("A/" ?Á)
+ ("A^" ?Â)
+ ("A+" ?Â)
+ ("A\"" ?Ä)
+ ("a\\" ?à)
+ ("a/" ?á)
+ ("a^" ?â)
+ ("a+" ?â)
+ ("a\"" ?ä)
+
+ ("E\\" ?È)
+ ("E/" ?É)
+ ("E^" ?Ê)
+ ("E+" ?Ê)
+ ("E\"" ?Ë)
+ ("e\\" ?è)
+ ("e/" ?é)
+ ("e^" ?ê)
+ ("e+" ?ê)
+ ("e\"" ?ë)
+
+ ("I\\" ?Ì)
+ ("I/" ?Í)
+ ("I^" ?Î)
+ ("I+" ?Î)
+ ("I\"" ?Ï)
+ ("i\\" ?ì)
+ ("i/" ?í)
+ ("i^" ?î)
+ ("i+" ?î)
+ ("i\"" ?ï)
+
+ ("O\\" ?Ò)
+ ("O/" ?Ó)
+ ("O^" ?Ô)
+ ("O+" ?Ô)
+ ("O\"" ?Ö)
+ ("o\\" ?ò)
+ ("o/" ?ó)
+ ("o^" ?ô)
+ ("o+" ?ô)
+ ("o\"" ?ö)
+
+ ("U\\" ?Ù)
+ ("U/" ?Ú)
+ ("U^" ?Û)
+ ("U+" ?Û)
+ ("U\"" ?Ü)
+ ("u\\" ?ù)
+ ("u/" ?ú)
+ ("u^" ?û)
+ ("u+" ?û)
+ ("u\"" ?ü)
+
+ ("Y\\" ?Ỳ)
+ ("Y/" ?Ý)
+ ("Y^" ?Ŷ)
+ ("Y+" ?Ŷ)
+ ("Y\"" ?Ÿ)
+ ("y\\" ?ỳ)
+ ("y/" ?ý)
+ ("y\"" ?ÿ)
+ ("y^" ?ŷ)
+ ("y+" ?ŷ)
+
+ ("W\\" ?Ẁ)
+ ("W/" ?Ẃ)
+ ("W^" ?Ŵ)
+ ("W+" ?Ŵ)
+ ("W\"" ?Ẅ)
+ ("w\\" ?ẁ)
+ ("w/" ?ẃ)
+ ("w^" ?ŵ)
+ ("w+" ?ŵ)
+ ("w\"" ?ẅ)
+
+ ;; "hawlfraint" (copyright). Dyma arwyddlun hawlfraint.
+ ("(h)" ?ⓗ))
+
+;; (quail-define-package
+;; "welsh" "Welsh" "Ŵ" t
+;; "Welsh postfix input method, using Latin-8"
+;; nil t nil nil nil nil nil nil nil nil t)
+
+;; (quail-define-rules
+;; ("A\\" ?À)
+;; ("A/" ?Á)
+;; ("A^" ?Â)
+;; ("A+" ?Â)
+;; ("A\"" ?Ä)
+;; ("a\\" ?à)
+;; ("a/" ?á)
+;; ("a^" ?â)
+;; ("a+" ?â)
+;; ("a\"" ?ä)
+
+;; ("E\\" ?È)
+;; ("E/" ?É)
+;; ("E^" ?Ê)
+;; ("E+" ?Ê)
+;; ("E\"" ?Ë)
+;; ("e\\" ?è)
+;; ("e/" ?é)
+;; ("e^" ?ê)
+;; ("e+" ?ê)
+;; ("e\"" ?ë)
+
+;; ("I\\" ?Ì)
+;; ("I/" ?Í)
+;; ("I^" ?Î)
+;; ("I+" ?Î)
+;; ("I\"" ?Ï)
+;; ("i\\" ?ì)
+;; ("i/" ?í)
+;; ("i^" ?î)
+;; ("i+" ?î)
+;; ("i\"" ?ï)
+
+;; ("O\\" ?Ò)
+;; ("O/" ?Ó)
+;; ("O^" ?Ô)
+;; ("O+" ?Ô)
+;; ("O\"" ?Ö)
+;; ("o\\" ?ò)
+;; ("o/" ?ó)
+;; ("o^" ?ô)
+;; ("o+" ?ô)
+;; ("o\"" ?ö)
+
+;; ("U\\" ?Ù)
+;; ("U/" ?Ú)
+;; ("U^" ?Û)
+;; ("U+" ?Û)
+;; ("U\"" ?Ü)
+;; ("u\\" ?ù)
+;; ("u/" ?ú)
+;; ("u^" ?û)
+;; ("u+" ?û)
+;; ("u\"" ?ü)
+
+;; ("Y\\" ?¬)
+;; ("Y/" ?Ý)
+;; ("Y^" ?Þ)
+;; ("Y+" ?Þ)
+;; ("Y\"" ?¯)
+;; ("y\\" ?¼)
+;; ("y/" ?ý)
+;; ("y\"" ?ÿ)
+;; ("y^" ?þ)
+;; ("y+" ?þ)
+
+;; ("W\\" ?¨)
+;; ("W/" ?ª)
+;; ("W^" ?Ð)
+;; ("W+" ?Ð)
+;; ("W\"" ?½)
+;; ("w\\" ?¸)
+;; ("w/" ?º)
+;; ("w^" ?ð)
+;; ("w+" ?ð)
+;; ("w\"" ?¾))
+
+
+;;; welsh.el ends here
HCoop / bpt / emacs.git / blobdiff