From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 23 Aug 1994 19:53:39 +0000 (+0000)
Subject: (jka-compr-insert-file-contents): Run the
X-Git-Tag: emacs-19.34~7260
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b38fda688bc527363a60c26c426d1ef960bfde6c;p=emacs.git

(jka-compr-insert-file-contents): Run the
after-insert-file-functions.
---

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)