Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-files.el @ 78:c7528f8e288d r20-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b34
author cvs
date Mon, 13 Aug 2007 09:05:42 +0200
parents 131b0175ea99
children 1ce6082ce73f
comparison
equal deleted inserted replaced
77:6cb4f478e7bc 78:c7528f8e288d
49 particular operation, you should bind the variable 49 particular operation, you should bind the variable
50 `overriding-file-coding-system' rather than setting this variable, 50 `overriding-file-coding-system' rather than setting this variable,
51 which is intended to be used for global environment specification.") 51 which is intended to be used for global environment specification.")
52 52
53 (defvar file-coding-system-alist 53 (defvar file-coding-system-alist
54 '(("\\.el$" . iso-2022-7) ;; '(; ("\\.el$" . euc-japan) 54 ;; '(; ("\\.el$" . euc-japan)
55 '(("\\.el$" . iso-2022-7)
56 ("\\.info$" . iso-2022-7)
57 ("\\.\\(gz\\|Z\\)$" . binary)
55 ("/spool/mail/.*$" . convert-mbox-coding-system)) 58 ("/spool/mail/.*$" . convert-mbox-coding-system))
56 "Alist specifying the coding system used for particular files. 59 "Alist specifying the coding system used for particular files.
57 Each element of the alist is a cons of a regexp, specifying the files 60 Each element of the alist is a cons of a regexp, specifying the files
58 to be affected, and a coding system. This overrides the more 61 to be affected, and a coding system. This overrides the more
59 general specification in `file-coding-system-for-read', but is 62 general specification in `file-coding-system-for-read', but is
462 coding-system))) 465 coding-system)))
463 (run-hook-with-args 'write-region-post-hook 466 (run-hook-with-args 'write-region-post-hook
464 start end filename append visit lockname 467 start end filename append visit lockname
465 coding-system))) 468 coding-system)))
466 469
467 470 ;;; mule-files.el ends here
468