diff options
| author | Richard M. Stallman | 1994-03-05 23:28:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-03-05 23:28:35 +0000 |
| commit | 54b2aa5c65269cf635f755a11a1d01c03f7772d8 (patch) | |
| tree | 34c5ef9b54f0af0c74f7d17b5a2393176daac455 | |
| parent | b3bbaa663d44593afd9fc96d128e1b48613b8eb4 (diff) | |
| download | emacs-54b2aa5c65269cf635f755a11a1d01c03f7772d8.tar.gz emacs-54b2aa5c65269cf635f755a11a1d01c03f7772d8.zip | |
(jka-compr-insert-file-contents): Handle 5th arg.
| -rw-r--r-- | lisp/jka-compr.el | 4 |
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 '/'") | |||
| 465 | (write-region start end filename append visit)))) | 465 | (write-region start end filename append visit)))) |
| 466 | 466 | ||
| 467 | 467 | ||
| 468 | (defun jka-compr-insert-file-contents (file &optional visit beg end) | 468 | (defun jka-compr-insert-file-contents (file &optional visit beg end replace) |
| 469 | "Documented as original." | 469 | "Documented as original." |
| 470 | 470 | ||
| 471 | (barf-if-buffer-read-only) | 471 | (barf-if-buffer-read-only) |
| @@ -560,7 +560,7 @@ There should be no more than seven characters after the final '/'") | |||
| 560 | 560 | ||
| 561 | (list filename size)) | 561 | (list filename size)) |
| 562 | 562 | ||
| 563 | (insert-file-contents file visit beg end)))) | 563 | (insert-file-contents file visit beg end replace)))) |
| 564 | 564 | ||
| 565 | 565 | ||
| 566 | (defun jka-compr-file-local-copy (file) | 566 | (defun jka-compr-file-local-copy (file) |