From 4f6917b6e293cda3825b8acd8276683106c869c3 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sun, 28 Oct 2001 16:26:31 +0000 Subject: [PATCH] *** empty log message *** --- leim/ChangeLog | 4 + leim/quail/bul-bel.el | 253 +++++++++++++++++++++++++++++++++++++++++ leim/quail/georgian.el | 85 ++++++++++++++ leim/quail/welsh.el | 119 +++++++++++++++++++ lisp/ChangeLog | 4 + 5 files changed, 465 insertions(+) create mode 100644 leim/quail/bul-bel.el create mode 100644 leim/quail/georgian.el create mode 100644 leim/quail/welsh.el diff --git a/leim/ChangeLog b/leim/ChangeLog index 71cb7fdc1a6..bfd2c5748f8 100644 --- a/leim/ChangeLog +++ b/leim/ChangeLog @@ -1,3 +1,7 @@ +2001-10-28 Dave Love + + * quail/welsh.el, quail/georgian.el, quail/bul-bel.el: New file. + 2001-06-11 Dave Love * Makefile.in (MISC): Augment. diff --git a/leim/quail/bul-bel.el b/leim/quail/bul-bel.el new file mode 100644 index 00000000000..f425f92c10f --- /dev/null +++ b/leim/quail/bul-bel.el @@ -0,0 +1,253 @@ +;;; bul-bel.el --- Bulgarian/Belarusian Quail input methods -*-coding: utf-8;-*- + +;; Copyright (C) 2001 Free Software Foundation, Inc. + +;; Author: Dave Love +;; Keywords: i18n + +;; 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: + +;; To support the Bulgarian and Belarusian language environments. +;; Improvements welcome from natives. + +;;; Code: + +;; From Yudit's `Belarusian input table according to STB955-94 +;; belarusian standard'. Alexander Mikhailian +(quail-define-package + "belarusian" "Cyrillic" "і" ; fixme + nil + "Belarusian STB955-94 input, producing Unicode" + nil t t t t nil nil nil nil nil t) + +(quail-define-rules + ("<<" ?«) + (">>" ?») + (",," ?”) + ("``" ?“) + ("C)" ?©) + ("x)" ?•) + (":)" ?☺) + (":(" ?☹) + ("C-" ?¤) + ("E-" ?€) + ("L-" ?£) + + ("~" ?Ё) + ("!" ?!) + ("@" ?\") + ("#" ?№) + ("$" ?\;) + ("%" ?%) + ("^" ?:) + ("&" ??) + ("*" ?*) + ("(" ?\() + (")" ?\)) + ("_" ?_) + ("+" ?+) + ("Q" ?Й) + ("W" ?Ц) + ("E" ?У) + ("R" ?К) + ("T" ?Е) + ("Y" ?Н) + ("U" ?Г) + ("I" ?Ш) + ("O" ?Ў) + ("P" ?З) + ("{" ?Х) + ("}" ?') + ("A" ?Ф) + ("S" ?Ы) + ("D" ?В) + ("F" ?А) + ("G" ?П) + ("H" ?Р) + ("J" ?О) + ("K" ?Л) + ("L" ?Д) + (":" ?Ж) + ("\"" ?Э) + ("|" ?/) + ("Z" ?Я) + ("X" ?Ч) + ("C" ?С) + ("V" ?М) + ("B" ?І) + ("N" ?Т) + ("M" ?Ь) + ("<" ?Б) + (">" ?Ю) + ("?" ?,) + + ("`" ?ё) + ("1" ?1) + ("2" ?2) + ("3" ?3) + ("4" ?4) + ("5" ?5) + ("6" ?6) + ("7" ?7) + ("8" ?8) + ("9" ?9) + ("0" ?0) + ("-" ?-) + ("=" ?=) + ("q" ?й) + ("w" ?ц) + ("e" ?у) + ("r" ?к) + ("t" ?е) + ("y" ?н) + ("u" ?г) + ("i" ?ш) + ("o" ?ў) + ("p" ?з) + ("[" ?х) + ("]" ?') + ("a" ?ф) + ("s" ?ы) + ("d" ?в) + ("f" ?а) + ("g" ?п) + ("h" ?р) + ("j" ?о) + ("k" ?л) + ("l" ?д) + (";" ?ж) + ("'" ?э) + ("\\" ?\\) + ("z" ?я) + ("x" ?ч) + ("c" ?с) + ("v" ?м) + ("b" ?і) + ("n" ?т) + ("m" ?ь) + ("," ?б) + ("." ?ю) + ("/" ?.) + + ("D-" ?Ђ) + ("G'" ?Ѓ) + ("E>" ?Є) + ("Z>" ?Ѕ) + ("I/ " ?И) + ("I:" ?Ї) + ("J<" ?Ј) + ("L>" ?Љ) + ("N>" ?Њ) + ("C'" ?Ћ) + ("K'" ?Ќ) + ("D>" ?Џ) + + ("d-" ?ђ) + ("g'" ?ѓ) + ("e>" ?є) + ("z>" ?ѕ) + ("i/ " ?и) + ("i:" ?ї) + ("j<" ?ј) + ("l>" ?љ) + ("c'" ?ћ) + ("k'" ?ќ) + ("d>" ?џ) + + ("G`" ?Ґ) + ("g`" ?ґ) + ("E<" ?Ѣ) + ("e<" ?ѣ) + ("A<" ?Ѫ) + ("a<" ?ѫ) + ("F`" ?Ѳ) + ("f`" ?ѳ) + ("Y`" ?Ѵ) + ("y`" ?ѵ)) + +;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov +(quail-define-package + "bulgarian-pho" "Cyrillic" "Б" ; fixme + nil + "Bulragian PHO keyboard layout, producing Unicode" + nil t t t t nil nil nil nil nil t) + +(quail-define-rules + ("A" ?А) + ("B" ?Б) + ("W" ?В) + ("G" ?Г) + ("D" ?Д) + ("E" ?Е) + ("V" ?Ж) + ("Z" ?З) + ("I" ?И) + ("J" ?Й) + ("K" ?К) + ("L" ?Л) + ("M" ?М) + ("N" ?Н) + ("O" ?О) + ("P" ?П) + ("R" ?Р) + ("S" ?С) + ("T" ?Т) + ("U" ?У) + ("F" ?Ф) + ("H" ?Х) + ("C" ?Ц) + ("~" ?Ч) + ("{" ?Ш) + ("}" ?Щ) + ("Y" ?Ъ) + ("X" ?Ь) + ("|" ?Ю) + ("Q" ?Я) + ("a" ?а) + ("b" ?б) + ("w" ?в) + ("g" ?г) + ("d" ?д) + ("e" ?е) + ("v" ?ж) + ("z" ?з) + ("i" ?и) + ("j" ?й) + ("k" ?к) + ("l" ?л) + ("m" ?м) + ("n" ?н) + ("o" ?о) + ("p" ?п) + ("r" ?р) + ("s" ?с) + ("t" ?т) + ("u" ?у) + ("f" ?ф) + ("h" ?х) + ("c" ?ц) + ("`" ?ч) + ("[" ?ш) + ("]" ?щ) + ("y" ?ъ) + ("x" ?ь) + ("\\" ?ю) + ("q" ?я)) + +(provide 'bul-bel) +;;; bul-bel.el ends here diff --git a/leim/quail/georgian.el b/leim/quail/georgian.el new file mode 100644 index 00000000000..a26c02ba9a7 --- /dev/null +++ b/leim/quail/georgian.el @@ -0,0 +1,85 @@ +;;; georgian.el --- Quail package for inputting Georgian characters -*-coding: utf-8;-*- + +;; Copyright (C) 2001 Free Software Foundation, Inc. + +;; Author: Dave Love +;; 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 2, 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; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Commentary: + +;; Georgian input following the Yudit map from Mark Leisher +;; . + +;;; Code: + +(require 'quail) + +(quail-define-package + "georgian" "Georgian" "გ" t + "A common Georgian transliteration" + nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("a" ?ა) + ("b" ?ბ) + ("g" ?გ) + ("d" ?დ) + ("e" ?ე) + ("v" ?ვ) + ("z" ?ზ) + ("t" ?თ) + ("i" ?ი) + (".k" ?კ) + ("l" ?ლ) + ("m" ?მ) + ("n" ?ნ) + ("o" ?ო) + (".p" ?პ) + ("\+z" ?ჟ) + ("r" ?რ) + ("s" ?ს) + (".t" ?ტ) + ("u" ?უ) + ("p" ?ფ) + ("k" ?ქ) + (".g" ?ღ) + ("q" ?ყ) + ("\+s" ?შ) + ("\+c" ?ჩ) + ("c" ?ც) + ("j" ?ძ) + (".c" ?წ) + (".\+c" ?ჭ) + ("x" ?ხ) + ("\+j" ?ჯ) + ("h" ?ჰ) + ("q1" ?ჴ) + ("e0" ?ჱ) + ("o1" ?ჵ) + ("i1" ?ჲ) + ("w" ?ჳ) + ("f" ?ჶ) + ;; Presumably, these are GEORGIAN LETTER YN, GEORGIAN LETTER ELIFI, + ;; accepted for U+10F7, U+10F8 -- fx + ("y" ?) ;; Letter not in Unicode (private use code). + ("e1" ?) ;; Letter not in Unicode (private use code). + ) + +;;; georgian.el ends here diff --git a/leim/quail/welsh.el b/leim/quail/welsh.el new file mode 100644 index 00000000000..d4abc8dbfd4 --- /dev/null +++ b/leim/quail/welsh.el @@ -0,0 +1,119 @@ +;;; welsh.el --- Quail package for inputting Welsh characters -*-coding: utf-8;-*- + +;; Copyright (C) 2001 Free Software Foundation, Inc. + +;; Author: Dave Love +;; 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 2, 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; 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 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)" ?ⓗ)) + +;;; welsh.el ends here diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8652fd1559f..75dc529a245 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2001-10-28 Dave Love + * international/utf-8.el (mule-utf-8): Comment out + pre-write-conversion. + (utf-8-pre-write-conversion): Comment out. + * international/mule-cmds.el (locale-language-names): Use defconst and purecopy it. Add entries for new environments/locales. (locale-charset-language-names): Use defconst, purecopy and add -- 2.39.5