Mercurial > emacs
comparison lisp/jka-compr.el @ 8593:ade21bb3acc8
(jka-compr-insert-file-contents): Run the
after-insert-file-functions.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 23 Aug 1994 19:53:39 +0000 |
| parents | 31eb7a0e2763 |
| children | ade4b542a74c |
comparison
equal
deleted
inserted
replaced
| 8592:aad4bccb4fca | 8593:ade21bb3acc8 |
|---|---|
| 529 local-file | 529 local-file |
| 530 t | 530 t |
| 531 nil | 531 nil |
| 532 uncompress-args)) | 532 uncompress-args)) |
| 533 (setq size (- (point) start)) | 533 (setq size (- (point) start)) |
| 534 (goto-char start)) | 534 (goto-char start) |
| 535 | 535 ;; Run the functions that insert-file-contents would. |
| 536 (let ((list after-insert-file-functions) | |
| 537 (value size)) | |
| 538 (while list | |
| 539 (setq value (funcall (car list) size)) | |
| 540 (if value | |
| 541 (setq size value)) | |
| 542 (setq list (cdr list))))) | |
| 536 | 543 |
| 537 (error | 544 (error |
| 538 (if (and (eq (car error-code) 'file-error) | 545 (if (and (eq (car error-code) 'file-error) |
| 539 (eq (nth 3 error-code) local-file)) | 546 (eq (nth 3 error-code) local-file)) |
| 540 (if visit | 547 (if visit |