Mercurial > hg > xemacs-beta

diff lisp/mule/mule-cmds.el @ 209:41ff10fd062f r20-4b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents e45d5e7c476e
children 78f53ef88e17
line wrap: on
line diff
--- a/lisp/mule/mule-cmds.el	Mon Aug 13 10:03:54 2007 +0200
+++ b/lisp/mule/mule-cmds.el	Mon Aug 13 10:04:58 2007 +0200
@@ -99,13 +99,12 @@
   (setq keyboard-coding-system coding-system)
   ;;(setq default-process-coding-system (cons coding-system coding-system))
   (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)
-		)))
-  (setq file-name-coding-system coding-system)
-  )
+	    `(lambda ()
+	       (let ((proc (get-buffer-process (current-buffer))))
+		 (set-process-input-coding-system  proc ',coding-system)
+		 (set-process-output-coding-system proc ',coding-system)))
+	    'append)
+  (setq file-name-coding-system coding-system))
 
 (defun prefer-coding-system (coding-system)
   "Add CODING-SYSTEM at the front of the priority list for automatic detection.