Mercurial > hg > xemacs-beta

comparison lisp/files.el @ 223:2c611d1463a6 r20-4b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b10
author cvs
date Mon, 13 Aug 2007 10:10:54 +0200
parents 262b8bb4a523
children 0e522484dd2a
comparison
equal deleted inserted replaced
222:aae4c8b01452 223:2c611d1463a6
2449 \(Its calling sequence is different; see its documentation)." 2449 \(Its calling sequence is different; see its documentation)."
2450 (interactive "*fInsert file: \nZCoding system: ") 2450 (interactive "*fInsert file: \nZCoding system: ")
2451 (if (file-directory-p filename) 2451 (if (file-directory-p filename)
2452 (signal 'file-error (list "Opening input file" "file is a directory" 2452 (signal 'file-error (list "Opening input file" "file is a directory"
2453 filename))) 2453 filename)))
2454 (let ((tem 2454 (let* (format-alist ; format.el only confuses people in this context
2455 (tem
2455 (if codesys 2456 (if codesys
2456 (let ((coding-system-for-read 2457 (let ((coding-system-for-read
2457 (get-coding-system codesys))) 2458 (get-coding-system codesys)))
2458 (insert-file-contents filename)) 2459 (insert-file-contents filename))
2459 (insert-file-contents filename)))) 2460 (insert-file-contents filename))))