Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-cmds.el @ 4576:774e5c7522bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
4575:eecd28508f4a 4576:774e5c7522bf
1408 (define-coding-system-alias 'native 1408 (define-coding-system-alias 'native
1409 (maybe-change-coding-system-with-eol native eol-type)) 1409 (maybe-change-coding-system-with-eol native eol-type))
1410 (error 1410 (error
1411 (warn "Invalid native-coding-system %s in language environment %s" 1411 (warn "Invalid native-coding-system %s in language environment %s"
1412 native language-name))) 1412 native language-name)))
1413 (define-coding-system-alias 'file-name 1413 ;; These variables have magic handlers to make setting them equivalent
1414 (or 1414 ;; to setting the file-name, terminal and keyboard coding system
1415 (let ((fncs (assq system-type system-type-file-name-coding))) 1415 ;; aliases. See coding.el.
1416 (and fncs (cdr fncs))) 1416 (setq file-name-coding-system
1417 'native)) 1417 (or
1418 ;; Set the default keyboard and terminal coding systems to the native 1418 (let ((fncs (assq system-type system-type-file-name-coding)))
1419 ;; coding system of the language environment. 1419 (and fncs (cdr fncs)))
1420 ;; 1420 native)
1421 (setq keyboard-coding-system native 1421 ;; Set the default keyboard and terminal coding systems to the
1422 ;; native coding system of the language environment.
1423 keyboard-coding-system native
1422 terminal-coding-system native) 1424 terminal-coding-system native)
1423 1425
1424 ;; And do the same for any TTYs. 1426 ;; And do the same for any TTYs.
1425 (dolist (con (console-list)) 1427 (dolist (con (console-list))
1426 (when (eq 'tty (device-type (car (console-device-list con)))) 1428 (when (eq 'tty (device-type (car (console-device-list con))))