Mercurial > hg > xemacs-beta
diff lisp/mule/mule-cmds.el @ 4576:774e5c7522bf
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 .
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Tue, 13 Jan 2009 12:07:27 +0000 |
| parents | 67fbcaf3dbdc |
| children | c83cab5a4f04 |
line wrap: on
line diff
--- 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.