From 139c4e546df4a6f9f389bcb4dc268bf97db33772 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sun, 5 Jan 2003 01:06:52 +0000 Subject: [PATCH] *** empty log message *** --- leim/ChangeLog | 8 ++ leim/quail/croatian.el | 196 +++++++++++++++++++++++++++++++++++++++++ lisp/ChangeLog | 19 ++++ 3 files changed, 223 insertions(+) create mode 100644 leim/quail/croatian.el diff --git a/leim/ChangeLog b/leim/ChangeLog index 021fb18a74..0d294c34bd 100644 --- a/leim/ChangeLog +++ b/leim/ChangeLog @@ -1,3 +1,11 @@ +2003-01-05 Dave Love + + * makefile.w32-in (SLAVIC): Add croatian.elc. + + * Makefile.in (SLAVIC): Add croatian.elc. + + * quail/croatian.el: New file. + 2002-12-10 Juanma Barranquero * makefile.w32-in (LATIN): Add welsh.elc. diff --git a/leim/quail/croatian.el b/leim/quail/croatian.el new file mode 100644 index 0000000000..ca41673729 --- /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æ , +;; 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 b9912dcc59..815a1af9cf 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,19 @@ +2003-01-05 Dave Love + + * 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 * gdb-ui.el: Acknowledge Tom Lord as author of gdba.el. @@ -28,6 +44,9 @@ 2003-01-03 Dave Love + * 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. -- 2.20.1