Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-cmds.el @ 3999:a0ef33811aa3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-06-03 17:32:28 by aidan] Don't sniff the file-name-coding-system for OS X; use utf-8.
author aidan
date Sun, 03 Jun 2007 17:32:38 +0000
parents fbf54025c136
children c098c0d9125f
comparison
equal deleted inserted replaced
3998:f836e16e7b99 3999:a0ef33811aa3
70 "Display the HELLO file which list up many languages and characters." 70 "Display the HELLO file which list up many languages and characters."
71 (interactive) 71 (interactive)
72 ;; We have to decode the file in any environment. 72 ;; We have to decode the file in any environment.
73 (let ((coding-system-for-read 'iso-2022-7bit)) 73 (let ((coding-system-for-read 'iso-2022-7bit))
74 (find-file-read-only (expand-file-name "HELLO" data-directory)))) 74 (find-file-read-only (expand-file-name "HELLO" data-directory))))
75
76 (defvar system-type-file-name-coding
77 '((darwin . utf-8))
78 "A map from values of `system-type' to invariant file name coding systems.
79 Used if a give system type does not vary in the coding system it uses for
80 file names; otherwise, `language-info-alist' is consulted for this
81 information. This affects the `file-name' coding system alias, but not the
82 `file-name-coding-system' variable, which in practice is mostly ignored. ")
75 83
76 84
77 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 85 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
78 ;;; Language Support Functions ;;; 86 ;;; Language Support Functions ;;;
79 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 87 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1375 (define-coding-system-alias 'native 1383 (define-coding-system-alias 'native
1376 (maybe-change-coding-system-with-eol native eol-type)) 1384 (maybe-change-coding-system-with-eol native eol-type))
1377 (error 1385 (error
1378 (warn "Invalid native-coding-system %s in language environment %s" 1386 (warn "Invalid native-coding-system %s in language environment %s"
1379 native language-name))) 1387 native language-name)))
1380 (define-coding-system-alias 'file-name 'native) 1388 (define-coding-system-alias 'file-name
1389 (or
1390 (let ((fncs (assq system-type system-type-file-name-coding)))
1391 (and fncs (cdr fncs)))
1392 'native))
1381 ;; Set the default keyboard and terminal coding systems to the native 1393 ;; Set the default keyboard and terminal coding systems to the native
1382 ;; coding system of the language environment. 1394 ;; coding system of the language environment.
1383 ;; 1395 ;;
1384 (setq keyboard-coding-system native 1396 (setq keyboard-coding-system native
1385 terminal-coding-system native) 1397 terminal-coding-system native)