🚀 go-pugleaf

Please apply this patch to the 19.26 version of jka-compr.  It fixes
two bugs in jka-compr-insert-file-contents relating to running the
after-insert-file-functions:

- they should be run after the visited file name of the buffer is set,
  the file is unlocked, and so on (as they are in the real
  insert-file-contents). 

- you need to check the return value of the function to make sure it
  is an integer.



*** jka-compr.el	Thu Sep 15 00:41:48 1994
--- jka-compr.el	Thu Sep 15 00:43:48 1994
***************
*** 529,543 ****
  						nil
  						uncompress-args))
  		      (setq size (- (point) 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)
--- 529,535 ----
  						nil
  						uncompress-args))
  		      (setq size (- (point) start))
! 		      (goto-char start))
  
  		  (error
  		   (if (and (eq (car error-code) 'file-error)
***************
*** 570,575 ****
--- 562,580 ----
  	   notfound
  	   (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))))
  
  	  (list filename size))