# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 762910115 0
# Node ID f4d5338c2142ac70203595e2e90832dee1f597df
# Parent  bc0db1c2790ef6c4c075e2c02e0bbfb733583ad6
(jka-compr-insert-file-contents): Handle 5th arg.

diff -r bc0db1c2790e -r f4d5338c2142 lisp/jka-compr.el
--- a/lisp/jka-compr.el	Sat Mar 05 23:27:51 1994 +0000
+++ b/lisp/jka-compr.el	Sat Mar 05 23:28:35 1994 +0000
@@ -465,7 +465,7 @@
 	(write-region start end filename append visit))))
 
 
-(defun jka-compr-insert-file-contents (file &optional visit beg end)
+(defun jka-compr-insert-file-contents (file &optional visit beg end replace)
   "Documented as original."
 
   (barf-if-buffer-read-only)
@@ -560,7 +560,7 @@
 
 	  (list filename size))
 
-      (insert-file-contents file visit beg end))))
+      (insert-file-contents file visit beg end replace))))
 
 
 (defun jka-compr-file-local-copy (file)