Mercurial > hg > xemacs-beta
changeset 3769:fbf54025c136
[xemacs-hg @ 2006-12-30 17:04:26 by aidan]
Provide native-coding-systems for some language environments that didn't
have them.
| author | aidan |
|---|---|
| date | Sat, 30 Dec 2006 17:04:32 +0000 |
| parents | f814ad0daf3b |
| children | 72f24324e9b6 |
| files | lisp/ChangeLog lisp/mule/cyrillic.el lisp/mule/english.el lisp/mule/greek.el lisp/mule/mule-cmds.el |
| diffstat | 5 files changed, 19 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Dec 29 22:50:53 2006 +0000 +++ b/lisp/ChangeLog Sat Dec 30 17:04:32 2006 +0000 @@ -1,3 +1,15 @@ +2006-12-30 Aidan Kehoe <kehoea@parhasard.net> + + * mule/cyrillic.el ("Cyrillic-ISO"): + * mule/english.el ("English"): + * mule/greek.el ("Greek"): + Specify a native-coding-system for each of these language + environments--since that is what is examined and relevant when + sniffing the locale at startup. + * mule/mule-cmds.el (create-variant-language-environment): + A language environment's coding-priority is a list of coding + systems, not coding categories. Treat it as such. + 2006-12-21 Aidan Kehoe <kehoea@parhasard.net> * mule/cyrillic.el: @@ -54,7 +66,7 @@ Unicode tables loaded at dump time are now in mule/general-late.el. * simple.el (count-lines): - Add some backslashes to to parentheses in docstrings to help + Add some backslashes to parentheses in docstrings to help fontification along. * simple.el (what-cursor-position): Wrap a line to fit in 80 characters.
--- a/lisp/mule/cyrillic.el Fri Dec 29 22:50:53 2006 +0000 +++ b/lisp/mule/cyrillic.el Sat Dec 30 17:04:32 2006 +0000 @@ -127,6 +127,7 @@ "Cyrillic-ISO" '((charset cyrillic-iso8859-5) (tutorial . "TUTORIAL.ru") (coding-system iso-8859-5) + (native-coding-system iso-8859-5) (coding-priority iso-8859-5) (input-method . "cyrillic-yawerty") (features cyril-util)
--- a/lisp/mule/english.el Fri Dec 29 22:50:53 2006 +0000 +++ b/lisp/mule/english.el Sat Dec 30 17:04:32 2006 +0000 @@ -50,6 +50,9 @@ "English" '((tutorial . "TUTORIAL") (locale "en" "C") (charset ascii) + (coding-system iso-8859-1) + (coding-priority iso-8859-1) + (native-coding-system iso-8859-1) (sample-text . "Hello!, Hi!, How are you?") (documentation . "\ Nothing special is needed to handle English.")
--- a/lisp/mule/greek.el Fri Dec 29 22:50:53 2006 +0000 +++ b/lisp/mule/greek.el Sat Dec 30 17:04:32 2006 +0000 @@ -130,6 +130,7 @@ "Greek" '((charset greek-iso8859-7) (coding-system iso-8859-7) (coding-priority iso-8859-7) + (native-coding-system iso-8859-7) (locale "el_GR.iso88597" "el_GR.greek8" "el_GR" "greek" "el") (input-method . "greek") (sample-text . "Greek (,FGkk]mija(B) ,FCei\(B ,Fsar(B")
--- a/lisp/mule/mule-cmds.el Fri Dec 29 22:50:53 2006 +0000 +++ b/lisp/mule/mule-cmds.el Sat Dec 30 17:04:32 2006 +0000 @@ -1093,7 +1093,7 @@ coding-system) 'coding-system (cons coding-system (cdr (assoc 'coding-system (cdr langenv))))) - 'coding-priority (cons (coding-system-category coding-system) + 'coding-priority (cons coding-system (cdr (assq 'coding-priority (cdr langenv)))))))) (defun get-language-environment-from-locale (locale)