# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 897850894 0
# Node ID 661650f543eeef3054c5feac34c114466dfb7125
# Parent  d21d2c3762c10a40e60b03684585f7f2ead8e923
(jka-compr-insert-file-contents): Don't run
after-insert-file-functions, since caller does that.

diff -r d21d2c3762c1 -r 661650f543ee lisp/jka-compr.el
--- a/lisp/jka-compr.el	Sun Jun 14 19:01:06 1998 +0000
+++ b/lisp/jka-compr.el	Sun Jun 14 19:01:34 1998 +0000
@@ -613,18 +613,22 @@
 	   (signal 'file-error
 		   (cons "Opening input file" (nth 2 notfound))))
 
-	  ;; Run the functions that insert-file-contents would.
-	  (let ((p after-insert-file-functions)
-		(insval size))
-	    (while p
-	      (setq insval (funcall (car p) size))
-	      (if insval
-		  (progn
-		    (or (integerp insval)
-			(signal 'wrong-type-argument
-				(list 'integerp insval)))
-		    (setq size insval)))
-	      (setq p (cdr p))))
+	  ;; This is done in insert-file-contents after we return.
+	  ;; That is a little weird, but better to go along with it now
+	  ;; than to change it now.
+
+;;;	  ;; Run the functions that insert-file-contents would.
+;;; 	  (let ((p after-insert-file-functions)
+;;; 		(insval size))
+;;; 	    (while p
+;;; 	      (setq insval (funcall (car p) size))
+;;; 	      (if insval
+;;; 		  (progn
+;;; 		    (or (integerp insval)
+;;; 			(signal 'wrong-type-argument
+;;; 				(list 'integerp insval)))
+;;; 		    (setq size insval)))
+;;; 	      (setq p (cdr p))))
 
 	  (list filename size))