From: tomo <tomo>
Date: Tue, 29 Jun 1999 05:57:09 +0000 (+0000)
Subject: (help-with-tutorial): Use property `tutorial-coding-system' of
X-Git-Tag: r21-2-17-tomo-3~40
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=30ea0b88813077aa9b55d86f2f17605cd12ffb9d;p=chise%2Fxemacs-chise.git-

(help-with-tutorial): Use property `tutorial-coding-system' of
language-info as a coding-system to read tutorial file.
---

diff --git a/lisp/mule/mule-help.el b/lisp/mule/mule-help.el
index a5442db..dd51dc7 100644
--- a/lisp/mule/mule-help.el
+++ b/lisp/mule/mule-help.el
@@ -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 [ ].