Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
cce3ba48
Commit
cce3ba48
authored
Oct 14, 1999
by
Dave Love
Browse files
Add Latin-8, Latin-9. Modify some doc
strings.
parent
7a860cf2
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
89 additions
and
8 deletions
+89
-8
lisp/language/european.el
lisp/language/european.el
+89
-8
No files found.
lisp/language/european.el
View file @
cce3ba48
...
...
@@ -24,7 +24,7 @@
;;; Commentary:
;; For Europeans,
five
character sets ISO8859-1,2,3,4,9 are supported.
;; For Europeans, character sets ISO8859-1,2,3,4,9
,14,15
are supported.
;;; Code:
...
...
@@ -66,11 +66,17 @@
(
sample-text
.
"Hello, Hej, Tere, Hei, Bonjour, Gr,A|_(B Gott, Ciao, ,A!(BHola!"
)
(
documentation
.
"\
This
language
environment
is
a
generic
one
for
Latin-1
(
ISO-8859-1
)
character
set
which
supports
the
following
languages:
Danish,
Dutch,
English,
Faeroese,
Finnish,
French,
German,
Icelandic,
Irish,
Italian,
Norwegian,
Portuguese,
Spanish,
and
Swedish.
We
also
have
a
German
specific
language
environment
\"German\".
"))
This
language
environment
is
a
generic
one
for
the
Latin-1
(
ISO-8859-1
)
character
set
which
supports
the
following
European
languages:
Albanian,
Basque,
Breton,
Catalan,
Danish,
Dutch,
English,
Faeroese,
Finnish,
French
(
with
restrictions
--
see
Latin-9
)
,
Frisian,
Galician,
German,
Greenlandic,
Icelandic,
Irish
Gaelic
(
new
orthography
)
,
Italian,
Latin,
Luxemburgish,
Norwegian,
Portuguese,
Rhaeto-Romanic,
Scottish
Gaelic,
Spanish,
and
Swedish.
We
also
have
a
German
specific
language
environment
\"German\".
Latin-1
also
covers
several
written
languages
outside
Europe,
including
Indonesian/Malay,
Tagalog
(
Philippines
)
,
Swahili
and
Afrikaans.
"))
'("
European
"))
...
...
@@ -101,7 +107,7 @@ We also have a German specific language environment \"German\"."))
(unibyte-display . iso-latin-2)
(input-method . "
latin-2-prefix
")
(documentation . "
\
This
language
environment
is
a
generic
one
for
Latin-2
(
ISO-8859-2
)
This
language
environment
is
a
generic
one
for
the
Latin-2
(
ISO-8859-2
)
character
set
which
supports
the
following
languages:
Albanian,
Czech,
English,
German,
Hungarian,
Polish,
Romanian,
Serbo-Croatian
or
Croatian,
Slovak,
Slovene,
Sorbian
(
upper
and
lower
)
,
...
...
@@ -206,9 +212,84 @@ These languages are supported with the Latin-4 (ISO-8859-4) character set:
(unibyte-display . iso-latin-5)
(input-method . "
latin-5-prefix
")
(documentation . "
\
These
languages
are
supported
with
the
Latin-5
(
ISO-8859-9
)
character
set.
"))
These
languages
are
supported
with
the
Latin-5
(
ISO-8859-9
)
character
set:
Bulgarian,
Byelorussian,
(
Slavic
)
Macedonian,
Russian,
Serbian
and
Ukranian.
")) ; says ISO 8859-1
'("
European
"))
;; Latin-8 (ISO-8859-14)
(make-coding-system
'iso-latin-8 2 ?W ; `W' for `Welsh', since `C'
; for `Celtic' is taken.
"
ISO
2022
based
8-bit
encoding
for
Latin-8
(
MIME:ISO-8859-14
)
"
'(ascii latin-iso8859-14 nil nil
nil nil nil nil nil nil nil nil nil nil nil nil t)
'((safe-charsets ascii latin-iso8859-14)
(mime-charset . iso-8859-14)))
(define-coding-system-alias 'iso-8859-14 'iso-latin-8)
(define-coding-system-alias 'latin-8 'iso-latin-8)
(defun setup-latin8-environment ()
"
Set
up
multilingual
environment
(
MULE
)
for
European
Latin-8
users.
"
(interactive)
(set-language-environment "
latin-8
"))
(set-language-info-alist
"
Latin-8
" '((charset ascii latin-iso8859-14)
(coding-system iso-latin-8)
(coding-priority iso-latin-8)
(nonascii-translation . latin-iso8859-14)
(unibyte-syntax . "
latin-8
")
(unibyte-display . iso-latin-8)
(input-method . "
latin-1-prefix
") ; fixme
;;; Fixme: Welsh/Ga{e}lic greetings
;;; (sample-text
;;; . "")
(documentation . "
\
This
language
environment
is
a
generic
one
for
the
Latin-8
(
ISO-8859-14
)
character
set
which
supports
the
Celtic
languages,
specifically
Welsh
and
Irish
Gaelic
(
old
orthography
)
which
are
not
covered
by
other
ISO-8859
character
sets.
"))
'("
European
"))
;; Latin-9 (ISO-8859-15)
(make-coding-system
'iso-latin-9 2 ?0 ; `0' for `Latin-0'
"
ISO
2022
based
8-bit
encoding
for
Latin-9
(
MIME:ISO-8859-15
)
"
'(ascii latin-iso8859-15 nil nil
nil nil nil nil nil nil nil nil nil nil nil nil t)
'((safe-charsets ascii latin-iso8859-15)
(mime-charset . iso-8859-15)))
(define-coding-system-alias 'iso-8859-15 'iso-latin-9)
(define-coding-system-alias 'latin-9 'iso-latin-9)
(define-coding-system-alias 'latin-0 'iso-latin-9)
(defun setup-latin9-environment ()
"
Set
up
multilingual
environment
(
MULE
)
for
European
Latin-9
users.
"
(interactive)
(set-language-environment "
latin-9
"))
(set-language-info-alist
"
Latin-9
" '((charset ascii latin-iso8859-15)
(coding-system iso-latin-9)
(coding-priority iso-latin-9)
(nonascii-translation . latin-iso8859-15)
(unibyte-syntax . "
latin-9
")
(unibyte-display . iso-latin-9)
(input-method . "
latin-1-prefix
") ; fixme?
(sample-text
. "
Ave
Latinum
IX,
,
b&
(
48<=>
(
B
,
b$$$
(
B
")
(documentation . "
\
This
language
environment
is
a
generic
one
for
the
Latin-9
(
ISO-8859-15
)
character
set
which
supports
the
same
languages
as
Latin-1
with
the
addition
of
the
Euro
sign
and
some
additional
French
and
Finnish
letters.
Latin-9
is
sometimes
nicknamed
`
Latin-0
'.
"))
'("
European
"))
(defun setup-german-environment ()
"
Set
up
multilingual
environment
(
MULE
)
for
German
users.
"
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment