procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(setup-XXX-environment): Just call set-language-environment. If

Browse source 
they used to do some other jobs than what done by
set-language-environment, those jobs are done in
setup-XXX-environment-internal now.
("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
the value to setup-XXX-environment-internal.  Add properties
nonascii-translation, input-method, features, unibyte-syntax, and
unibyte-display.
This commit is contained in:
Kenichi Handa 1998-08-10 06:29:02 +00:00
parent 6e49aeecbf
commit 8f76845d7e
6 changed files with 34 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/language/czech.el
View file

@ -31,14 +31,16 @@
(defun setup-czech-environment ()
"Setup multilingual environment (MULE) for Czech."
(interactive)
(funcall (get-language-info "Latin-2" 'setup-function))
(setq default-input-method "czech"))
(set-language-environment "Latin-2"))
(set-language-info-alist
"Czech" '((setup-function . setup-czech-environment)
(charset . (ascii latin-iso8859-2))
"Czech" '((charset . (ascii latin-iso8859-2))
(coding-system . (iso-8859-2))
(coding-priority . (iso-8859-2))
(input-method . "czech")
(nonascii-translation . latin-iso8859-2)
(unibyte-syntax . "latin-2")
(unibyte-display . iso-8859-2)
(tutorial . "TUTORIAL.cs")
(sample-text . "P,Bx(Bejeme v,Ba(Bm hezk,B}(B den!")
(documentation . t))

9
lisp/language/greek.el
View file

@ -41,14 +41,15 @@
(defun setup-greek-environment ()
"Setup multilingual environment (MULE) for Greek."
(interactive)
(setup-8-bit-environment "Greek" 'greek-iso8859-7 "greek-postfix"))
(set-language-environment "Greek"))
(set-language-info-alist
"Greek" '((setup-function . setup-greek-environment)
(charset . (greek-iso8859-7))
"Greek" '((charset . (greek-iso8859-7))
(coding-system . (greek-iso-8bit))
(coding-priority greek-iso-8bit)
(sample-text . "Greek (,FGkk]mija(B) ,FCei\(B ,Fsar(B")
(nonascii-translation . greek-iso8859-7)
(input-method . "greek")
(unibyte-display . greek-iso-8bit)
(documentation . t)))
;;; greek.el ends here

8
lisp/language/hebrew.el
View file

@ -42,14 +42,16 @@
"Setup multilingual environment (MULE) for Hebrew.
But, please note that right-to-left writing is not yet supported."
(interactive)
(setup-8-bit-environment "Hebrew" 'hebrew-iso8859-8 "hebrew"))
(set-language-environment "Hebrew"))
(set-language-info-alist
"Hebrew" '((setup-function . setup-hebrew-environment)
(describe-function . describe-hebrew-support)
"Hebrew" '((describe-function . describe-hebrew-support)
(charset . (hebrew-iso8859-8))
(coding-priority hebrew-iso-8bit)
(coding-system . (hebrew-iso-8bit))
(nonascii-translation . hebrew-iso8859-8)
(input-method . "hebrew")
(unibyte-display . hebrew-iso-8bit)
(sample-text . "Hebrew ,Hylem(B")
(documentation . "Right-to-left writing is not yet supported.")
))

8
lisp/language/misc-lang.el
View file

@ -29,13 +29,15 @@
(defun setup-ipa-environment ()
"Setup multilingual environment (MULE) for IPA."
(interactive)
(setup-english-environment))
(set-language-environment "IPA"))
(set-language-info-alist
"IPA" '((setup-function . setup-ipa-environment)
(charset . (ipa))
"IPA" '((charset . (ipa))
(coding-priority iso-2022-7bit)
(coding-system iso-2022-7bit)
(input-method . "ipa")
(nonascii-translation . ipa)
(unibyte-display . iso-2022-7bit)
(documentation . "\
IPA is International Phonetic Alphabet for English, French, German
and Italian.")))

12
lisp/language/romanian.el
View file

@ -31,15 +31,17 @@
(defun setup-romanian-environment ()
"Setup multilingual environment (MULE) for Romanian."
(interactive)
(setup-8-bit-environment "Romanian" 'latin-iso8859-2 "latin-2-postfix")
(load "latin-2"))
(set-language-environment "Romanian"))
(set-language-info-alist
"Romanian" '((setup-function . setup-romanian-environment)
(charset . (ascii latin-iso8859-2))
"Romanian" '((charset . (ascii latin-iso8859-2))
(coding-system . (iso-8859-2))
(coding-priority . (iso-8859-2))
(sample-text . "Bun-Aã-B ziua, bine a-Aþi-B venit!")
(nonascii-translation . latin-iso8859-2)
(input-method . "latin-2-postfix")
(unibyte-syntax . "latin-2")
(unibyte-display . iso-8859-2)
(sample-text . "Bunã ziua, bine aþi venit!")
(documentation . t))
'("European"))

10
lisp/language/slovak.el
View file

@ -33,14 +33,16 @@
(defun setup-slovak-environment ()
"Setup multilingual environment (MULE) for Slovak."
(interactive)
(funcall (get-language-info "Latin-2" 'setup-function))
(setq default-input-method "slovak"))
(set-language-environment "Slovak"))
(set-language-info-alist
"Slovak" '((setup-function . setup-slovak-environment)
(charset . (ascii latin-iso8859-2))
"Slovak" '((charset . (ascii latin-iso8859-2))
(coding-system . (iso-8859-2))
(coding-priority . (iso-8859-2))
(nonascii-translation . latin-iso8859-2)
(input-method . "slovak")
(unibyte-syntax . "latin-2")
(unibyte-display . iso-8859-2)
(sample-text . "Prajeme V,Ba(Bm pr,Bm(Bjemn,B}(B de,Br(B!")
(documentation . t))
'("European"))