Source

os-utils / jka-compr.el

Diff from to

File jka-compr.el

 				     (jka-value-if-bound
 				           coding-system-for-read) 
 				     'undecided))
-	    (coding-system-for-write 'no-conversion))
+	    (coding-system-for-write 'binary))
 	    
 	(unwind-protect
 
 
 	    ;; save value used by the real write-region
 	    ;; without any code conversion.
-	    (let ((coding-system-for-read 'no-conversion))
+	    (let ((coding-system-for-read 'binary))
 	      (jka-compr-call-process compress-program
 				      (concat compress-message
 					      " " base-name)
 				      compress-args))
 
 	    (with-current-buffer temp-buffer
-	      (let ((coding-system-for-write 'no-conversion))
+	      (let ((coding-system-for-write 'binary))
 		(if (memq system-type '(ms-dos windows-nt))
 		    (setq buffer-file-type t) )
 		(jka-compr-run-real-handler 'write-region
 		;; conversion.  An appropriate code conversion (if
 		;; necessary) is done by the later I/O operation
 		;; (e.g. load).
-		(let ((coding-system-for-read 'no-conversion)
-		      (coding-system-for-write 'no-conversion))
+		(let ((coding-system-for-read 'binary)
+		      (coding-system-for-write 'binary))
 		  (jka-compr-call-process uncompress-program
 					  (concat uncompress-message
 						  " " base-name)
 	       ;; Don't do multibyte encoding on the compressed files.
 	       (when (boundp 'file-coding-system-alist)
 	       (let ((elt (cons (jka-compr-info-regexp x)
-                                '(no-conversion . no-conversion))))
+                                '(binary . binary))))
 		 (setq file-coding-system-alist
 		       (cons elt file-coding-system-alist))
 		 (setq jka-compr-added-to-file-coding-system-alist