[COMMIT] Provide native-coding-systems for some language environments that didn't have them
Also changes a line in ChangeLog where ‘to’ was repeated needlessly.
APPROVE COMMIT
NOTE: This patch has been committed.
lisp/ChangeLog addition:
2006-12-30 Aidan Kehoe <kehoea(a)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.
XEmacs Trunk source patch:
Diff command: cvs -q diff -Nu
Files affected: lisp/mule/mule-cmds.el
===================================================================
RCS lisp/mule/greek.el
===================================================================
RCS lisp/mule/english.el
===================================================================
RCS lisp/mule/cyrillic.el
===================================================================
RCS
Index: lisp/mule/cyrillic.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/cyrillic.el,v
retrieving revision 1.13
diff -u -u -r1.13 cyrillic.el
--- lisp/mule/cyrillic.el 2006/12/29 18:09:46 1.13
+++ lisp/mule/cyrillic.el 2006/12/30 17:00:50
＠＠ -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)
Index: lisp/mule/english.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/english.el,v
retrieving revision 1.7
diff -u -u -r1.7 english.el
--- lisp/mule/english.el 2006/11/05 22:31:37 1.7
+++ lisp/mule/english.el 2006/12/30 17:00:50
＠＠ -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.")
Index: lisp/mule/greek.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/greek.el,v
retrieving revision 1.7
diff -u -u -r1.7 greek.el
--- lisp/mule/greek.el 2006/12/29 18:09:46 1.7
+++ lisp/mule/greek.el 2006/12/30 17:00:50
＠＠ -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")
Index: lisp/mule/mule-cmds.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/mule-cmds.el,v
retrieving revision 1.30
diff -u -u -r1.30 mule-cmds.el
--- lisp/mule/mule-cmds.el 2006/12/29 18:09:47 1.30
+++ lisp/mule/mule-cmds.el 2006/12/30 17:00:51
＠＠ -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)
--
When I was in the scouts, the leader told me to pitch a tent. I couldn't
find any pitch, so I used creosote.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches