diff options
| author | Richard M. Stallman | 1994-08-23 19:53:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-08-23 19:53:39 +0000 |
| commit | b38fda688bc527363a60c26c426d1ef960bfde6c (patch) | |
| tree | 348c833f51752522f8c7695ce83dfa2db1270d60 | |
| parent | ae7a1fbce08cf767d841c554c092d673e8564bfb (diff) | |
| download | emacs-b38fda688bc527363a60c26c426d1ef960bfde6c.tar.gz emacs-b38fda688bc527363a60c26c426d1ef960bfde6c.zip | |
(jka-compr-insert-file-contents): Run the
after-insert-file-functions.
| -rw-r--r-- | lisp/jka-compr.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index 3247042eb7e..768ed52eecf 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el | |||
| @@ -531,8 +531,15 @@ There should be no more than seven characters after the final `/'") | |||
| 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) |