Mercurial > emacs
annotate leim/quail/croatian.el @ 104889:18c2aea5083c
2009-09-09 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-util.el (gnus-float-time): Alias to float-time if it exists.
* ecomplete.el (with-no-warnings): Define it for old Emacsen.
(ecomplete-add-item): Don't use (featurep 'xemacs) to check if
float-time is available; suppress compile warning for time-to-seconds.
2009-09-07 Katsumi Yamaoka <yamaoka@jpl.org>
* mm-encode.el (mm-encode-buffer): Don't force 7bit encoding since MTA
may break data. Suggested by Dmitri Paduchikh <dpaduch@k66.ru>.
Add the optional argument `encoding' that overrides the default.
* mml.el (mml-generate-mime-1): Pass encoding defined by a user to
mm-encode-buffer.
2009-09-02 Karl Kleinpaste <karl@kleinpaste.org>
* gnus-art.el (gnus-article-read-summary-keys):
Fix gnus-buffer-configuration's value temporarily used.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Wed, 09 Sep 2009 09:28:43 +0000 |
parents | 5f4e85fd7c0a |
children | 1d1d5d9bd884 |
rev | line source |
---|---|
49045 | 1 ;;; quail/croatian.el -- Quail package for inputing Croatian -*-coding: iso-8859-2;-*- |
2 | |
100963 | 3 ;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009 |
79727 | 4 ;; Free Software Foundation, Inc. |
49045 | 5 |
101078
5f4e85fd7c0a
Comments (minor fixes of some header conventions).
Glenn Morris <rgm@gnu.org>
parents:
100963
diff
changeset
|
6 ;; Author: Hrvoje Nik¹iæ <hniksic@xemacs.org> |
49045 | 7 ;; Keywords: i18n |
8 | |
9 ;; This file is part of GNU Emacs. | |
10 | |
94710
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
49045 | 12 ;; it under the terms of the GNU General Public License as published by |
94710
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
14 ;; (at your option) any later version. |
49045 | 15 |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
94710
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
49045 | 23 |
101078
5f4e85fd7c0a
Comments (minor fixes of some header conventions).
Glenn Morris <rgm@gnu.org>
parents:
100963
diff
changeset
|
24 ;;; Commentary: |
5f4e85fd7c0a
Comments (minor fixes of some header conventions).
Glenn Morris <rgm@gnu.org>
parents:
100963
diff
changeset
|
25 |
5f4e85fd7c0a
Comments (minor fixes of some header conventions).
Glenn Morris <rgm@gnu.org>
parents:
100963
diff
changeset
|
26 ;; Modeled after czech.el by Milan Zamazal. |
5f4e85fd7c0a
Comments (minor fixes of some header conventions).
Glenn Morris <rgm@gnu.org>
parents:
100963
diff
changeset
|
27 |
49045 | 28 ;;; Code: |
29 | |
30 (require 'quail) | |
31 | |
32 (quail-define-package | |
33 "croatian" "Croatian" "HR" nil | |
34 "\"Standard\" Croatian keyboard." | |
35 nil t nil nil nil nil nil nil nil nil t) | |
36 | |
37 (quail-define-rules | |
38 ("@" ?\") | |
39 ("^" ?&) | |
40 ("&" ?/) | |
41 ("*" ?\() | |
42 ("(" ?\)) | |
43 (")" ?=) | |
44 ("-" ?\') | |
45 ("_" ??) | |
46 ("=" ?+) | |
47 ("+" ?*) | |
48 ("[" ?¹) | |
49 ("{" ?©) | |
50 ("]" ?ð) | |
51 ("}" ?Ð) | |
52 (";" ?è) | |
53 (":" ?È) | |
54 ("'" ?æ) | |
55 ("\"" ?Æ) | |
56 ("\\" ?¾) | |
57 ("|" ?®) | |
58 ("<" ?\;) | |
59 (">" ?:) | |
60 ("/" ?-) | |
61 ("?" ?_) | |
62 ("y" ?z) | |
63 ("Y" ?Z) | |
64 ("z" ?y) | |
65 ("Z" ?Y)) | |
66 | |
67 (quail-define-package | |
68 "croatian-qwerty" "Croatian" "HR" nil | |
69 "Croatian keyboard without the y/z swap." | |
70 nil t nil nil nil nil nil nil nil nil t) | |
71 | |
72 (quail-define-rules | |
73 ("@" ?\") | |
74 ("^" ?&) | |
75 ("&" ?/) | |
76 ("*" ?\() | |
77 ("(" ?\)) | |
78 (")" ?=) | |
79 ("-" ?\') | |
80 ("_" ??) | |
81 ("=" ?+) | |
82 ("+" ?*) | |
83 ("[" ?¹) | |
84 ("{" ?©) | |
85 ("]" ?ð) | |
86 ("}" ?Ð) | |
87 (";" ?è) | |
88 (":" ?È) | |
89 ("'" ?æ) | |
90 ("\"" ?Æ) | |
91 ("\\" ?¾) | |
92 ("|" ?®) | |
93 ("<" ?\;) | |
94 (">" ?:) | |
95 ("/" ?-) | |
96 ("?" ?_)) | |
97 | |
98 (quail-define-package | |
99 "croatian-prefix" "Croatian" "HR" nil | |
100 "Croatian input method, postfix. | |
101 | |
102 \"c -> è | |
103 'c -> æ | |
104 \"s -> ¹ | |
105 \"z -> ¾ | |
106 /d -> ð" | |
107 nil t nil nil nil nil nil nil nil nil t) | |
108 | |
109 (quail-define-rules | |
110 ("\"c" ?è) | |
111 ("\"C" ?È) | |
112 ("'c" ?æ) | |
113 ("'C" ?Æ) | |
114 ("\"s" ?¹) | |
115 ("\"S" ?©) | |
116 ("\"z" ?¾) | |
117 ("\"Z" ?®) | |
118 ("/d" ?ð) | |
119 ("/D" ?Ð)) | |
120 | |
121 (quail-define-package | |
122 "croatian-postfix" "Croatian" "HR" nil | |
123 "Croatian input method, postfix. | |
124 | |
125 c\" -> è | |
126 c' -> æ | |
127 s\" -> ¹ | |
128 z\" -> ¾ | |
129 d/ -> ð" | |
130 nil t nil nil nil nil nil nil nil nil t) | |
131 | |
132 (quail-define-rules | |
133 ("c\"" ?è) | |
134 ("C\"" ?È) | |
135 ("c'" ?æ) | |
136 ("C'" ?Æ) | |
137 ("s\"" ?¹) | |
138 ("S\"" ?©) | |
139 ("z\"" ?¾) | |
140 ("Z\"" ?®) | |
141 ("d/" ?ð) | |
142 ("D/" ?Ð)) | |
143 | |
144 (quail-define-package | |
145 "croatian-xy" "Croatian" "HR" nil | |
146 "An alternative Croatian input method. | |
147 | |
148 cx -> è | |
149 cy -> æ | |
150 sx -> ¹ | |
151 zx -> ¾ | |
152 dy -> ð" | |
153 nil t nil nil nil nil nil nil nil nil t) | |
154 | |
155 (quail-define-rules | |
156 ("cx" ?è) | |
157 ("CX" ?È) | |
158 ("Cx" ?È) | |
159 ("cy" ?æ) | |
160 ("CY" ?Æ) | |
161 ("Cy" ?Æ) | |
162 ("sx" ?¹) | |
163 ("SX" ?©) | |
164 ("Sx" ?©) | |
165 ("zx" ?¾) | |
166 ("ZX" ?®) | |
167 ("Zx" ?®) | |
168 ("dy" ?ð) | |
169 ("DY" ?Ð) | |
170 ("Dy" ?Ð)) | |
171 | |
172 (quail-define-package | |
173 "croatian-cc" "Croatian" "HR" nil | |
174 "Another alternative Croatian input method. | |
175 | |
176 cc -> è | |
177 ch -> æ | |
178 ss -> ¹ | |
179 zz -> ¾ | |
180 dd -> ð" | |
181 nil t nil nil nil nil nil nil nil nil t) | |
182 | |
183 (quail-define-rules | |
184 ("cc" ?è) | |
185 ("CC" ?È) | |
186 ("Cc" ?È) | |
187 ("ch" ?æ) | |
188 ("CH" ?Æ) | |
189 ("Ch" ?Æ) | |
190 ("ss" ?¹) | |
191 ("SS" ?©) | |
192 ("Ss" ?©) | |
193 ("zz" ?¾) | |
194 ("ZZ" ?®) | |
195 ("Zz" ?®) | |
196 ("dd" ?ð) | |
197 ("DD" ?Ð) | |
198 ("Dd" ?Ð)) | |
52401 | 199 |
94710
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
200 ;; arch-tag: 8cb44078-9c51-4e81-9ef8-7d5b89f62e31 |
4f1fd208c354
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
79727
diff
changeset
|
201 ;;; croatian.el ends here |