Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-files.el @ 80:1ce6082ce73f r20-0b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b90
author cvs
date Mon, 13 Aug 2007 09:06:37 +0200
parents c7528f8e288d
children 6a378aca36af
comparison
equal deleted inserted replaced
79:5b0a5bbffab6 80:1ce6082ce73f
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$" . euc-japan) 54 ;; '(; ("\\.el$" . euc-japan)
55 '(("\\.el$" . iso-2022-7) 55 '(("\\.el$" . iso-2022-8)
56 ("\\.info$" . iso-2022-7) 56 ("\\.info$" . iso-2022-8)
57 ("\\.\\(gz\\|Z\\)$" . binary) 57 ("\\.\\(gz\\|Z\\)$" . binary)
58 ("/spool/mail/.*$" . convert-mbox-coding-system)) 58 ("/spool/mail/.*$" . convert-mbox-coding-system))
59 "Alist specifying the coding system used for particular files. 59 "Alist specifying the coding system used for particular files.
60 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
61 to be affected, and a coding system. This overrides the more 61 to be affected, and a coding system. This overrides the more
401 401
402 The functions on this hook are called with arguments START, END, 402 The functions on this hook are called with arguments START, END,
403 FILENAME, APPEND, VISIT, and CODING-SYSTEM, the same as the 403 FILENAME, APPEND, VISIT, and CODING-SYSTEM, the same as the
404 corresponding arguments in the call to `write-region'.") 404 corresponding arguments in the call to `write-region'.")
405 405
406 (defun write-region (start end filename &optional append visit lockname 406 (defun write-region (start end filename &optional append visit lockname coding-system)
407 coding-system)
408 "Write current region into specified file. 407 "Write current region into specified file.
409 When called from a program, takes three arguments: 408 When called from a program, takes three arguments:
410 START, END and FILENAME. START and END are buffer positions. 409 START, END and FILENAME. START and END are buffer positions.
411 Optional fourth argument APPEND if non-nil means 410 Optional fourth argument APPEND if non-nil means
412 append to existing file contents (if any). 411 append to existing file contents (if any).