X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Fmule-help.el;h=e8892078ff118b07399bde0cb5a22436f9089a09;hb=0f92404799e55d12e9cbc680d02a20870400a6ac;hp=a5442db772f558859084820e9c8b50b49d19447d;hpb=cbb40ed4dbe8dad2c432475e1cc91742886f1ef4;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/mule/mule-help.el b/lisp/mule/mule-help.el
index a5442db..e889207 100644
--- a/lisp/mule/mule-help.el
+++ b/lisp/mule/mule-help.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 1997 by Free Software Foundation, Inc.
 
-;; Author: SL Baur <steve@altair.xemacs.org>
+;; Author: SL Baur <steve@xemacs.org>
 ;; Keywords: help, internal, mule
 
 ;; This file is part of XEmacs.
@@ -57,7 +57,9 @@ With arg, you are asked to select which language."
       (setq buffer-file-name file)
       (setq default-directory (expand-file-name "~/"))
       (setq buffer-auto-save-file-name nil)
-      (insert-file-contents (locate-data-file filename))
+      (let ((coding-system-for-read
+	     (get-language-info lang 'tutorial-coding-system)))
+	(insert-file-contents (locate-data-file filename)))
       (goto-char (point-min))
       ;; The 'didactic' blank lines: Possibly insert blank lines
       ;; around <<nya nya nya>>, and change << >> to [ ].