Mercurial > hg > xemacs-beta

diff lisp/mule/mule-cmds.el @ 438:84b14dcb0985 r21-2-27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-27
author cvs
date Mon, 13 Aug 2007 11:32:25 +0200
parents 3ecd8885ac67
children 8de8e3f6228a
line wrap: on
line diff
--- a/lisp/mule/mule-cmds.el	Mon Aug 13 11:31:26 2007 +0200
+++ b/lisp/mule/mule-cmds.el	Mon Aug 13 11:32:25 2007 +0200
@@ -168,11 +168,15 @@
   ;;(setq default-keyboard-coding-system coding-system)
   (setq keyboard-coding-system coding-system)
   ;;(setq default-process-coding-system (cons coding-system coding-system))
+  ;; Refer to coding-system-for-read and coding-system-for-write
+  ;; so that C-x RET c works.
   (add-hook 'comint-exec-hook
 	    `(lambda ()
 	       (let ((proc (get-buffer-process (current-buffer))))
-		 (set-process-input-coding-system  proc ',coding-system)
-		 (set-process-output-coding-system proc ',coding-system)))
+		 (set-process-input-coding-system
+		  proc (or coding-system-for-read ',coding-system))
+		 (set-process-output-coding-system
+		  proc (or coding-system-for-write ',coding-system))))
 	    'append)
   (setq file-name-coding-system coding-system))