Mercurial > emacs
comparison lisp/jka-compr.el @ 6218:f4d5338c2142
(jka-compr-insert-file-contents): Handle 5th arg.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 05 Mar 1994 23:28:35 +0000 |
| parents | 649926e9c1a8 |
| children | 34cc2fd97a9e |
comparison
equal
deleted
inserted
replaced
| 6217:bc0db1c2790e | 6218:f4d5338c2142 |
|---|---|
| 463 nil) | 463 nil) |
| 464 | 464 |
| 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) |
| 472 | 472 |
| 473 (and (or beg end) | 473 (and (or beg end) |
| 558 (signal 'file-error | 558 (signal 'file-error |
| 559 (cons "Opening input file" (nth 2 notfound)))) | 559 (cons "Opening input file" (nth 2 notfound)))) |
| 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) |
| 567 "Documented as original." | 567 "Documented as original." |
| 568 | 568 |