Mercurial > emacs
comparison lisp/language/european.el @ 24269:a29550b1d150
(setup-slovenian-environment): New function.
("Slovenian"): New language environment.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 06 Feb 1999 05:50:59 +0000 |
parents | 5c0a4ed13900 |
children | ca7c320ed896 |
comparison
equal
deleted
inserted
replaced
24268:17b13a968841 | 24269:a29550b1d150 |
---|---|
230 (documentation . "\ | 230 (documentation . "\ |
231 This language environment is almost the same as Latin-1, | 231 This language environment is almost the same as Latin-1, |
232 but default input method is set to \"german-postfix\".")) | 232 but default input method is set to \"german-postfix\".")) |
233 '("European")) | 233 '("European")) |
234 | 234 |
235 (defun setup-slovenian-environment () | |
236 "Setup multilingual environment (MULE) for Slovenian." | |
237 (interactive) | |
238 (set-language-environment "Slovenian")) | |
239 | |
240 (set-language-info-alist | |
241 "Slovenian" '((charset . (ascii latin-iso8859-2)) | |
242 (coding-system . (iso-8859-2)) | |
243 (coding-priority . (iso-8859-2)) | |
244 (nonascii-translation . latin-iso8859-2) | |
245 (input-method . "latin-2-postfix") | |
246 (unibyte-syntax . "latin-2") | |
247 (unibyte-display . iso-8859-2) | |
248 (tutorial . "TUTORIAL.sl") | |
249 (sample-text . ",B.(Belimo vam uspe,B9(Ben dan!") | |
250 (documentation . t)) | |
251 '("European")) | |
252 | |
253 (provide 'slovenian) | |
254 | |
235 ;;; european.el ends here | 255 ;;; european.el ends here |