# HG changeset patch
# User Andr��� Spiegel <spiegel@gnu.org>
# Date 938861598 0
# Node ID d24b874488ef89d9b4a3f37395b236b8b65e8e07
# Parent  7094579127c88055afa9e31fb900268ea1e0fa59
(vc-backend-checkout): Use coding system 'no-conversion when doing
with-temp-file.

diff -r 7094579127c8 -r d24b874488ef lisp/vc.el
--- a/lisp/vc.el	Fri Oct 01 22:05:50 1999 +0000
+++ b/lisp/vc.el	Sat Oct 02 10:53:18 1999 +0000
@@ -5,7 +5,7 @@
 ;; Author:     Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
 
-;; $Id: vc.el,v 1.254 1999/09/06 22:15:10 rms Exp $
+;; $Id: vc.el,v 1.255 1999/09/22 12:58:49 spiegel Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -2595,16 +2595,18 @@
 			(failed t))
 		    (unwind-protect
 			(progn
-                          (with-temp-file filename
-                            (apply 'vc-do-command
-                                   (current-buffer) 0 "get" file 'MASTER
-                                   "-s" ;; suppress diagnostic output
-                                   (if writable "-e")
-                                   "-p" 
-                                   (and rev
-                                        (concat "-r" 
-                                                (vc-lookup-triple file rev)))
-                                   switches))
+                          (let ((coding-system-for-read 'no-conversion)
+                                (coding-system-for-write 'no-conversion))
+                            (with-temp-file filename
+                              (apply 'vc-do-command
+                                     (current-buffer) 0 "get" file 'MASTER
+                                     "-s" ;; suppress diagnostic output
+                                     (if writable "-e")
+                                     "-p" 
+                                     (and rev
+                                          (concat "-r" 
+                                                  (vc-lookup-triple file rev)))
+                                     switches)))
                           (set-file-modes filename
                                           (logior (file-modes (vc-name file))
                                                   (if writable 128 0)))
@@ -2624,13 +2626,15 @@
 		      (failed t))
 		  (unwind-protect
 		      (progn
-                        (with-temp-file filename
-                          (apply 'vc-do-command
-                                 (current-buffer) 0 "co" file 'MASTER
-                                 "-q" ;; suppress diagnostic output
-                                 (if writable "-l")
-                                 (concat "-p" rev)
-                                 switches))
+                        (let ((coding-system-for-read 'no-conversion)
+                              (coding-system-for-write 'no-conversion))
+                          (with-temp-file filename
+                            (apply 'vc-do-command
+                                   (current-buffer) 0 "co" file 'MASTER
+                                   "-q" ;; suppress diagnostic output
+                                   (if writable "-l")
+                                   (concat "-p" rev)
+                                   switches)))
                         (set-file-modes filename 
                                         (logior (file-modes (vc-name file))
                                                 (if writable 128 0)))
@@ -2675,14 +2679,16 @@
 		(let ((failed t))
 		  (unwind-protect
 		      (progn
-                        (with-temp-file filename
-                          (apply 'vc-do-command
-                                 (current-buffer) 0 "cvs" file 'WORKFILE 
-                                 "-Q" ;; suppress diagnostic output
-                                 "update"
-                                 (concat "-r" rev)
-                                 "-p"
-                                 switches))
+                        (let ((coding-system-for-read 'no-conversion)
+                              (coding-system-for-write 'no-conversion))
+                          (with-temp-file filename
+                            (apply 'vc-do-command
+                                   (current-buffer) 0 "cvs" file 'WORKFILE 
+                                   "-Q" ;; suppress diagnostic output
+                                   "update"
+                                   (concat "-r" rev)
+                                   "-p"
+                                   switches)))
 			(setq failed nil))
 		    (and failed (file-exists-p filename) (delete-file filename))))
 	      ;; default for verbose checkout: clear the sticky tag