mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-22 07:09:54 +00:00
*** empty log message ***
This commit is contained in:
parent
aae7dcdeb5
commit
139c4e546d
@ -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.
|
||||
|
196
leim/quail/croatian.el
Normal file
196
leim/quail/croatian.el
Normal file
@ -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" ?Ð))
|
@ -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.
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user