From b38fda688bc527363a60c26c426d1ef960bfde6c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 23 Aug 1994 19:53:39 +0000 Subject: (jka-compr-insert-file-contents): Run the after-insert-file-functions. --- lisp/jka-compr.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'lisp/jka-compr.el') 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 `/'") 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) -- cgit v1.2.1