*** empty log message ***

3 files changed, 223 insertions, 0 deletions

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 021fb18a745..0d294c34bd6 100644
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,3 +1,11 @@
+2003-01-05  Dave Love  <fx@gnu.org>
+
+        * makefile.w32-in (SLAVIC): Add croatian.elc.
+
+        * Makefile.in (SLAVIC): Add croatian.elc.
+
+        * quail/croatian.el: New file.
+
 2002-12-10  Juanma Barranquero  <lektu@terra.es>
 
         * makefile.w32-in (LATIN): Add welsh.elc.
diff --git a/leim/quail/croatian.el b/leim/quail/croatian.el
new file mode 100644
index 00000000000..ca416737291
--- /dev/null
+++ b/leim/quail/croatian.el
@@ -0,0 +1,196 @@
+;;; quail/croatian.el -- Quail package for inputing Croatian  -*-coding: iso-8859-2;-*-
+
+;; Copyright (C) 2002 Free Software Foundation.
+
+;; Author: Hrvoje Nik¹iæ <hniksic@xemacs.org>,
+;;         modeled after czech.el by Milan Zamazal.
+;; 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.
+
+;;; Code:
+
+(require 'quail)
+
+(quail-define-package
+ "croatian" "Croatian" "HR" nil
+ "\"Standard\" Croatian keyboard."
+  nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("@" ?\")
+ ("^" ?&)
+ ("&" ?/)
+ ("*" ?\()
+ ("(" ?\))
+ (")" ?=)
+ ("-" ?\')
+ ("_" ??)
+ ("=" ?+)
+ ("+" ?*)
+ ("[" ?¹)
+ ("{" ?©)
+ ("]" ?ð)
+ ("}" ?Ð)
+ (";" ?è)
+ (":" ?È)
+ ("'" ?æ)
+ ("\"" ?Æ)
+ ("\\" ?¾)
+ ("|" ?®)
+ ("<" ?\;)
+ (">" ?:)
+ ("/" ?-)
+ ("?" ?_)
+ ("y" ?z)
+ ("Y" ?Z)
+ ("z" ?y)
+ ("Z" ?Y))
+
+(quail-define-package
+ "croatian-qwerty" "Croatian" "HR" nil
+ "Croatian keyboard without the y/z swap."
+ nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("@" ?\")
+ ("^" ?&)
+ ("&" ?/)
+ ("*" ?\()
+ ("(" ?\))
+ (")" ?=)
+ ("-" ?\')
+ ("_" ??)
+ ("=" ?+)
+ ("+" ?*)
+ ("[" ?¹)
+ ("{" ?©)
+ ("]" ?ð)
+ ("}" ?Ð)
+ (";" ?è)
+ (":" ?È)
+ ("'" ?æ)
+ ("\"" ?Æ)
+ ("\\" ?¾)
+ ("|" ?®)
+ ("<" ?\;)
+ (">" ?:)
+ ("/" ?-)
+ ("?" ?_))
+
+(quail-define-package
+ "croatian-prefix" "Croatian" "HR" nil
+ "Croatian input method, postfix.
+
+\"c -> è
+'c -> æ
+\"s -> ¹
+\"z -> ¾
+/d -> ð"
+ nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("\"c" ?è)
+ ("\"C" ?È)
+ ("'c" ?æ)
+ ("'C" ?Æ)
+ ("\"s" ?¹)
+ ("\"S" ?©)
+ ("\"z" ?¾)
+ ("\"Z" ?®)
+ ("/d" ?ð)
+ ("/D" ?Ð))
+
+(quail-define-package
+ "croatian-postfix" "Croatian" "HR" nil
+ "Croatian input method, postfix.
+
+c\" -> è
+c' -> æ
+s\" -> ¹
+z\" -> ¾
+d/ -> ð"
+ nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("c\"" ?è)
+ ("C\"" ?È)
+ ("c'" ?æ)
+ ("C'" ?Æ)
+ ("s\"" ?¹)
+ ("S\"" ?©)
+ ("z\"" ?¾)
+ ("Z\"" ?®)
+ ("d/" ?ð)
+ ("D/" ?Ð))
+
+(quail-define-package
+ "croatian-xy" "Croatian" "HR" nil
+ "An alternative Croatian input method.
+
+cx -> è
+cy -> æ
+sx -> ¹
+zx -> ¾
+dy -> ð"
+ nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("cx" ?è)
+ ("CX" ?È)
+ ("Cx" ?È)
+ ("cy" ?æ)
+ ("CY" ?Æ)
+ ("Cy" ?Æ)
+ ("sx" ?¹)
+ ("SX" ?©)
+ ("Sx" ?©)
+ ("zx" ?¾)
+ ("ZX" ?®)
+ ("Zx" ?®)
+ ("dy" ?ð)
+ ("DY" ?Ð)
+ ("Dy" ?Ð))
+
+(quail-define-package
+ "croatian-cc" "Croatian" "HR" nil
+ "Another alternative Croatian input method.
+
+cc -> è
+ch -> æ
+ss -> ¹
+zz -> ¾
+dd -> ð"
+ nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("cc" ?è)
+ ("CC" ?È)
+ ("Cc" ?È)
+ ("ch" ?æ)
+ ("CH" ?Æ)
+ ("Ch" ?Æ)
+ ("ss" ?¹)
+ ("SS" ?©)
+ ("Ss" ?©)
+ ("zz" ?¾)
+ ("ZZ" ?®)
+ ("Zz" ?®)
+ ("dd" ?ð)
+ ("DD" ?Ð)
+ ("Dd" ?Ð))
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b9912dcc595..815a1af9cf6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,19 @@
+2003-01-05  Dave Love  <fx@gnu.org>
+
+        * language/european.el ("Latin-6", "Croatian"): New.
+        ("Latin-7"): Fix nonascii-translation.  Add input method.
+        ("Lithuanian", "Latvian"): Add nonascii-translation.
+        ("German", "Spanish", "Dutch", "Welsh", "Swedish"): Fix
+        nonascii-translation.
+
+        * language/georgian.el ("Georgian"): Fix nonascii-translation.
+
+        * international/mule-cmds.el (set-locale-environment): Ignore
+        empty values of environment variables.
+
+        * emacs-lisp/byte-opt.el (byte-optimize-nth)
+        (byte-optimize-nthcdr): Fix for case of wrong-length forms.
+
 2003-01-04  Nick Roberts  <nick@nick.uklinux.net>
 
         * gdb-ui.el: Acknowledge Tom Lord as author of gdba.el.
@@ -28,6 +44,9 @@
 
 2003-01-03  Dave Love  <fx@gnu.org>
 
+        * emacs-lisp/find-func.el (find-variable-noselect): Make it work
+        with new load-history format.
+
         * international/mule-cmds.el (sort-coding-systems): Adjust
         priority of utf-16 and x-ctext.