Mercurial > emacs
comparison lisp/jka-compr.el @ 22484:661650f543ee
(jka-compr-insert-file-contents): Don't run
after-insert-file-functions, since caller does that.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 14 Jun 1998 19:01:34 +0000 |
| parents | 09dbe38a603f |
| children | 516b9dfa5d34 |
comparison
equal
deleted
inserted
replaced
| 22483:d21d2c3762c1 | 22484:661650f543ee |
|---|---|
| 611 visit | 611 visit |
| 612 notfound | 612 notfound |
| 613 (signal 'file-error | 613 (signal 'file-error |
| 614 (cons "Opening input file" (nth 2 notfound)))) | 614 (cons "Opening input file" (nth 2 notfound)))) |
| 615 | 615 |
| 616 ;; Run the functions that insert-file-contents would. | 616 ;; This is done in insert-file-contents after we return. |
| 617 (let ((p after-insert-file-functions) | 617 ;; That is a little weird, but better to go along with it now |
| 618 (insval size)) | 618 ;; than to change it now. |
| 619 (while p | 619 |
| 620 (setq insval (funcall (car p) size)) | 620 ;;; ;; Run the functions that insert-file-contents would. |
| 621 (if insval | 621 ;;; (let ((p after-insert-file-functions) |
| 622 (progn | 622 ;;; (insval size)) |
| 623 (or (integerp insval) | 623 ;;; (while p |
| 624 (signal 'wrong-type-argument | 624 ;;; (setq insval (funcall (car p) size)) |
| 625 (list 'integerp insval))) | 625 ;;; (if insval |
| 626 (setq size insval))) | 626 ;;; (progn |
| 627 (setq p (cdr p)))) | 627 ;;; (or (integerp insval) |
| 628 ;;; (signal 'wrong-type-argument | |
| 629 ;;; (list 'integerp insval))) | |
| 630 ;;; (setq size insval))) | |
| 631 ;;; (setq p (cdr p)))) | |
| 628 | 632 |
| 629 (list filename size)) | 633 (list filename size)) |
| 630 | 634 |
| 631 (jka-compr-run-real-handler 'insert-file-contents | 635 (jka-compr-run-real-handler 'insert-file-contents |
| 632 (list file visit beg end replace))))) | 636 (list file visit beg end replace))))) |