🚀 go-pugleaf

jka-compr-insert-file-contents does not implement the 'replace' arg
for compressed files.  I came up with one quick solution, the patch
I've included, but it's not perfect.  I just delete the portion of the
buffer that should be overwritten, so it doesn't preserve the marks
the way the regular insert-file-contents would.  The problem is that
since I use call-process to get the uncompressed data into the buffer,
I can't make it overwrite the buffer contents.  I bring the
uncompressed data in using call-process so I don't have to worry about
whether there's enough space in /tmp to hold the uncompressed data.
Otherwise, I would just put the uncompressed file in /tmp and insert it
using real-insert-file-contents.  Suggestions?


*** jka-compr.el	Thu Sep 15 00:41:48 1994
--- jka-compr.el	Thu Sep 15 00:59:08 1994
***************
*** 510,515 ****
--- 510,517 ----
  		(condition-case error-code
  
  		    (progn
+ 		      (if replace
+ 			  (goto-char (point-min)))
  		      (setq start (point))
  		      (if (or beg end)
  			  (jka-compr-partial-uncompress uncompress-program
***************
*** 529,534 ****
--- 531,541 ----
  						nil
  						uncompress-args))
  		      (setq size (- (point) start))
+ 		      (if replace
+ 			  (let* ((del-beg (point))
+ 				 (del-end (+ del-beg size)))
+ 			    (delete-region del-beg
+ 					   (min del-end (point-max)))))
  		      (goto-char start)
  		      ;; Run the functions that insert-file-contents would.
  		      (let ((list after-insert-file-functions)