summaryrefslogtreecommitdiff
path: root/lisp/jka-compr.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1994-03-05 23:28:35 +0000
committerRichard M. Stallman <rms@gnu.org>1994-03-05 23:28:35 +0000
commit54b2aa5c65269cf635f755a11a1d01c03f7772d8 (patch)
tree34c5ef9b54f0af0c74f7d17b5a2393176daac455 /lisp/jka-compr.el
parentb3bbaa663d44593afd9fc96d128e1b48613b8eb4 (diff)
downloademacs-54b2aa5c65269cf635f755a11a1d01c03f7772d8.tar.gz
(jka-compr-insert-file-contents): Handle 5th arg.
Diffstat (limited to 'lisp/jka-compr.el')
-rw-r--r--lisp/jka-compr.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index 1519e056c21..ffc7156eff8 100644
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -465,7 +465,7 @@ There should be no more than seven characters after the final '/'")
(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 @@ There should be no more than seven characters after the final '/'")
(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)