Mercurial > emacs
changeset 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 | aad4bccb4fca |
| children | 4d8d02befd11 |
| files | lisp/jka-compr.el |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/jka-compr.el Tue Aug 23 16:34:26 1994 +0000 +++ b/lisp/jka-compr.el Tue Aug 23 19:53:39 1994 +0000 @@ -531,8 +531,15 @@ nil uncompress-args)) (setq size (- (point) start)) - (goto-char start)) - + (goto-char start) + ;; Run the functions that insert-file-contents would. + (let ((list after-insert-file-functions) + (value size)) + (while list + (setq value (funcall (car list) size)) + (if value + (setq size value)) + (setq list (cdr list))))) (error (if (and (eq (car error-code) 'file-error)