carbon2-commit: Preserve the relation btw. file-name-coding-system & the 'file-name c-s alias.

changeset: 4615:774e5c7522bf0681f0ecf0ab015d9ec8dcb35486 user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Tue Jan 13 12:07:27 2009 +0000 files: lisp/ChangeLog lisp/mule/mule-cmds.el description: Preserve the relation btw. file-name-coding-system & the 'file-name c-s alias. lisp/ChangeLog addition: 2009-01-13 Aidan Kehoe <kehoea(a)parhasard.net&gt; * 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 eecd28508f4ad62d51fe5144021a20f9d8594d0a -r 774e5c7522bf0681f0ecf0ab015d9ec8dcb35486 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-11 Aidan Kehoe <kehoea＠parhasa +2009-01-13 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * 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(a)parhasard.net&gt; * subr.el: Correct a comment, we now have #'syntax-after in diff -r eecd28508f4ad62d51fe5144021a20f9d8594d0a -r 774e5c7522bf0681f0ecf0ab015d9ec8dcb35486 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 ＠＠ 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 - (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. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches