*** empty log message ***

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 71cb7fdc1a6cce1e10691a6975efe7a14c85a558..bfd2c5748f8a7045ffc448d2aadfbfb6f018ef81 100644 (file)
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-28  Dave Love  <fx@gnu.org>
+
+       * quail/welsh.el, quail/georgian.el, quail/bul-bel.el: New file.
+
 2001-06-11  Dave Love  <fx@gnu.org>
 
        * Makefile.in (MISC): Augment.

diff --git a/leim/quail/bul-bel.el b/leim/quail/bul-bel.el
new file mode 100644 (file)
index 0000000..f425f92
--- /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 <fx@gnu.org>
+;; 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 <mikhailian@altern.org>
+(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 <al_shopov@web.bg>
+(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 (file)
index 0000000..a26c02b
--- /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 <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 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
+;; <mleisher@crl.nmsu.edu>.
+
+;;; 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 (file)
index 0000000..d4abc8d
--- /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 <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 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 8652fd1559f81122da4487927b4cf32a3946b9ac..75dc529a2452a26cfde8f0f0a2187a152b95884a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2001-10-28  Dave Love  <fx@gnu.org>
 
+       * 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