Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/mule/mule-files.el	Mon Aug 13 09:05:44 2007 +0200
+++ b/lisp/mule/mule-files.el	Mon Aug 13 09:06:37 2007 +0200
@@ -52,8 +52,8 @@
 
 (defvar file-coding-system-alist
   ;;  '(; ("\\.el$" . euc-japan)
-  '(("\\.el$" . iso-2022-7)
-    ("\\.info$" . iso-2022-7)
+  '(("\\.el$" . iso-2022-8)
+    ("\\.info$" . iso-2022-8)
     ("\\.\\(gz\\|Z\\)$" . binary)
     ("/spool/mail/.*$" . convert-mbox-coding-system))
   "Alist specifying the coding system used for particular files.
@@ -403,8 +403,7 @@
 FILENAME, APPEND, VISIT, and CODING-SYSTEM, the same as the
 corresponding arguments in the call to `write-region'.")
 
-(defun write-region (start end filename &optional append visit lockname
-			   coding-system)
+(defun write-region (start end filename &optional append visit lockname coding-system)
   "Write current region into specified file.
 When called from a program, takes three arguments:
 START, END and FILENAME.  START and END are buffer positions.