CVS update by aidan xemacs/lisp/mule ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 07/06/03 19:32:39

  Modified:    xemacs/lisp/mule mule-cmds.el
Log:
Don't sniff the file-name-coding-system for OS X; use utf-8.

Revision  Changes    Path
1.803     +9 -0      XEmacs/xemacs/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.802
retrieving revision 1.803
diff -u -p -r1.802 -r1.803
--- ChangeLog	2007/05/25 15:47:55	1.802
+++ ChangeLog	2007/06/03 17:32:28	1.803
@@ -1,3 +1,12 @@
+2007-06-03  Aidan Kehoe  <kehoea at parhasard.net>
+
+	* mule/mule-cmds.el:
+	* mule/mule-cmds.el (system-type-file-name-coding): New.
+	* mule/mule-cmds.el (set-language-environment-coding-systems):
+	Check system-type-file-name-coding for an entry before making the
+	file-name coding system alias equivalent to the native coding
+	system alias. 
+
 2007-05-25  Mike Sperber  <mike at xemacs.org>
 
 	* startup.el (startup-setup-paths): Print the configure-xxx



1.32      +13 -1     XEmacs/xemacs/lisp/mule/mule-cmds.el

Index: mule-cmds.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/mule-cmds.el,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -p -r1.31 -r1.32
--- mule-cmds.el	2006/12/30 17:04:32	1.31
+++ mule-cmds.el	2007/06/03 17:32:38	1.32
@@ -73,6 +73,14 @@
   (let ((coding-system-for-read 'iso-2022-7bit))
     (find-file-read-only (expand-file-name "HELLO" data-directory))))
 
+(defvar system-type-file-name-coding
+  '((darwin . utf-8))
+  "A map from values of `system-type' to invariant file name coding systems.
+Used if a give system type does not vary in the coding system it uses for
+file names; otherwise, `language-info-alist' is consulted for this
+information.  This affects the `file-name' coding system alias, but not the
+`file-name-coding-system' variable, which in practice is mostly ignored. ")
+
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;                       Language Support Functions                    ;;;
@@ -1377,7 +1385,11 @@ of buffer-file-coding-system set by this
 	(error
 	 (warn "Invalid native-coding-system %s in language environment %s"
 	       native language-name)))
-      (define-coding-system-alias 'file-name 'native)
+      (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. 
       ;;