diff lisp/jka-compr.el @ 11635:b56f6afa16ec

(jka-compr-write-region): Handle the append argument correctly when the can-append flag is false. (jka-compr-write-region): Make temp-buffer name unique to this fn. (jka-compr-file-local-copy): Ditto.

--- a/lisp/jka-compr.el	Sun Apr 30 23:50:15 1995 +0000
+++ b/lisp/jka-compr.el	Mon May 01 05:23:49 1995 +0000
@@ -181,7 +181,7 @@
 (put 'compression-error 'error-conditions '(compression-error file-error error))
 
 
-(defvar jka-compr-acceptable-retval-list '(0 141))
+(defvar jka-compr-acceptable-retval-list '(0 2 141))
 
 
 (defun jka-compr-error (prog args infile message &optional errfile)
@@ -361,50 +361,30 @@
 		(uncompress-message (jka-compr-info-uncompress-message info))
 		(compress-args (jka-compr-info-compress-args info))
 		(uncompress-args (jka-compr-info-uncompress-args info))
-		(temp-file (jka-compr-make-temp-name))
 		(base-name (file-name-nondirectory visit-file))
-		cbuf temp-buffer)
+		temp-file cbuf temp-buffer)
 
 	    (setq cbuf (current-buffer)
-		  temp-buffer (get-buffer-create " *jka-compr-temp*"))
+		  temp-buffer (get-buffer-create " *jka-compr-wr-temp*"))
 	    (set-buffer temp-buffer)
 	    (widen) (erase-buffer)
 	    (set-buffer cbuf)
 
-	    (and append
-		 (not can-append)
-		 (file-exists-p filename)
-		 (let* ((local-copy (file-local-copy filename))
-			(local-file (or local-copy filename)))
-
-		   (unwind-protect
-
-		       (progn
-		      
-			 (and
-			  uncompress-message
-			  (message "%s %s..." uncompress-message base-name))
+	    (if (and append
+		     (not can-append)
+		     (file-exists-p filename))
+		
+		(let* ((local-copy (file-local-copy filename))
+		       (local-file (or local-copy filename)))
+		  
+		  (setq temp-file local-file))
 
-			 (jka-compr-call-process uncompress-program
-						 (concat uncompress-message
-							 " " base-name)
-						 local-file
-						 temp-file
-						 temp-buffer
-						 uncompress-args)
-			 (and
-			  uncompress-message
-			  (message "%s %s...done" uncompress-message base-name)))
-		     
-		     (and
-		      local-copy
-		      (file-exists-p local-copy)
-		      (delete-file local-copy)))))
+	      (setq temp-file (jka-compr-make-temp-name)))
 
 	    (and 
 	     compress-message
 	     (message "%s %s..." compress-message base-name))
-
+	    
 	    (jka-compr-run-real-handler 'write-region
 					(list start end temp-file t 'dont))
 
@@ -585,7 +565,7 @@
 	      (local-copy
 	       (jka-compr-run-real-handler 'file-local-copy (list filename)))
 	      (temp-file (jka-compr-make-temp-name t))
-	      (temp-buffer (get-buffer-create " *jka-compr-temp*"))
+	      (temp-buffer (get-buffer-create " *jka-compr-flc-temp*"))
 	      (notfound nil)
 	      (cbuf (current-buffer))
 	      local-file)