emacs/lisp/leim/quail/welsh.el

202 lines
3.3 KiB
EmacsLisp
Raw Normal View History

;;; welsh.el --- Quail package for inputting Welsh characters -*-coding: utf-8;-*-
2001-11-04 17:08:08 +00:00
;; Copyright (C) 2001-2016 Free Software Foundation, Inc.
2001-11-04 17:08:08 +00:00
;; Author: Dave Love <fx@gnu.org>
;; Keywords: i18n
2001-12-25 11:10:03 +00:00
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
2001-11-04 17:08:08 +00:00
;; 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.
2001-11-04 17:08:08 +00:00
;; GNU Emacs is distributed in the hope that it will be useful,
2001-11-04 17:08:08 +00:00
;; 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/>.
2001-11-04 17:08:08 +00:00
;;; Commentary:
;; Welsh input following the Yudit map by david@sheetmusic.org.uk.
;;; Code:
(require 'quail)
(quail-define-package
"welsh" "Welsh" "Ŵ" t
2003-09-08 12:53:41 +00:00
"Welsh postfix input method"
2001-11-04 17:08:08 +00:00
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\"" ?ẅ)
2001-11-04 17:08:08 +00:00
;; "hawlfraint" (copyright). Dyma arwyddlun hawlfraint.
("(h)" ?ⓗ))
2001-11-04 17:08:08 +00:00
2002-11-14 14:05:39 +00:00
;; (quail-define-package
;; "welsh" "Welsh" "Ŵ" t
2001-11-04 17:08:08 +00:00
;; "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\"" ?¾))
2001-11-04 17:08:08 +00:00
;;; welsh.el ends here