Mercurial > hg > xemacs-beta
diff lisp/files.el @ 223:2c611d1463a6 r20-4b10
Import from CVS: tag r20-4b10
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:10:54 +0200 |
parents | 262b8bb4a523 |
children | 0e522484dd2a |
line wrap: on
line diff
--- a/lisp/files.el Mon Aug 13 10:10:03 2007 +0200 +++ b/lisp/files.el Mon Aug 13 10:10:54 2007 +0200 @@ -2451,7 +2451,8 @@ (if (file-directory-p filename) (signal 'file-error (list "Opening input file" "file is a directory" filename))) - (let ((tem + (let* (format-alist ; format.el only confuses people in this context + (tem (if codesys (let ((coding-system-for-read (get-coding-system codesys)))