# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1231848447 0
# Node ID 774e5c7522bf0681f0ecf0ab015d9ec8dcb35486
# Parent  eecd28508f4ad62d51fe5144021a20f9d8594d0a
Preserve the relation btw. file-name-coding-system & the 'file-name c-s alias.

lisp/ChangeLog addition:

2009-01-13  Aidan Kehoe  <kehoea@parhasard.net>

	* mule/mule-cmds.el (set-language-environment-coding-systems):
	Fix a cosmetic bug; the relationship between
	file-name-coding-system and the file-name coding system alias
	established in coding.el wasn't being maintained. See Katsumi
	Yamaoka's comment in http://mid.gmane.org/b4m4p03bt43.fsf@jpl.org .

diff -r eecd28508f4a -r 774e5c7522bf lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Jan 11 13:18:42 2009 +0000
+++ b/lisp/ChangeLog	Tue Jan 13 12:07:27 2009 +0000
@@ -1,3 +1,11 @@
+2009-01-13  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* mule/mule-cmds.el (set-language-environment-coding-systems): 
+	Fix a cosmetic bug; the relationship between
+	file-name-coding-system and the file-name coding system alias
+	established in coding.el wasn't being maintained. See Katsumi
+	Yamaoka's comment in http://mid.gmane.org/b4m4p03bt43.fsf@jpl.org .
+
 2009-01-11  Aidan Kehoe  <kehoea@parhasard.net>
 
 	* subr.el: Correct a comment, we now have #'syntax-after in
diff -r eecd28508f4a -r 774e5c7522bf lisp/mule/mule-cmds.el
--- a/lisp/mule/mule-cmds.el	Sun Jan 11 13:18:42 2009 +0000
+++ b/lisp/mule/mule-cmds.el	Tue Jan 13 12:07:27 2009 +0000
@@ -1410,15 +1410,17 @@
 	(error
 	 (warn "Invalid native-coding-system %s in language environment %s"
 	       native language-name)))
-      (define-coding-system-alias 'file-name 
-        (or 
-         (let ((fncs (assq system-type system-type-file-name-coding)))
-           (and fncs (cdr fncs)))
-         'native))
-      ;; Set the default keyboard and terminal coding systems to the native
-      ;; coding system of the language environment. 
-      ;;
-      (setq keyboard-coding-system native
+      ;; These variables have magic handlers to make setting them equivalent
+      ;; to setting the file-name, terminal and keyboard coding system
+      ;; aliases. See coding.el. 
+      (setq file-name-coding-system 
+            (or 
+             (let ((fncs (assq system-type system-type-file-name-coding)))
+               (and fncs (cdr fncs)))
+             native)
+            ;; Set the default keyboard and terminal coding systems to the
+            ;; native coding system of the language environment.
+            keyboard-coding-system native
 	    terminal-coding-system native)
 
       ;; And do the same for any TTYs.