X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fcode-process.el;h=a60b620721d895c2bc939f4123571377af4a3bff;hb=cc952c87134f98975102ee428e3c3a9cdb012a7b;hp=88902b1f922ef1367eec89b6ed31fca99691fd1f;hpb=716cfba952c1dc0d2cf5c968971f3780ba728a89;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/code-process.el b/lisp/code-process.el
index 88902b1..a60b620 100644
--- a/lisp/code-process.el
+++ b/lisp/code-process.el
@@ -125,6 +125,9 @@ you quit again before the process exits."
 	    (cond ((consp ret)
 		   (setq cs-r (car ret)
 			 cs-w (cdr ret)))
+		  ((null ret)
+		   (setq cs-r buffer-file-coding-system
+			 cs-w buffer-file-coding-system))
 		  ((find-coding-system ret)
 		   (setq cs-r ret
 			 cs-w ret))))