(chinese-cns11643-3): Don't define if `utf-2000' is provided because

[chise/xemacs-chise.git] / lisp / mule / mule-help.el

diff --git a/lisp/mule/mule-help.el b/lisp/mule/mule-help.el
index 0a330cd..dd51dc7 100644 (file)
--- a/lisp/mule/mule-help.el
+++ b/lisp/mule/mule-help.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1997 by Free Software Foundation, Inc.
 
 ;; Author: SL Baur <steve@altair.xemacs.org>
-;; Keywords: help, internal
+;; 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 [ ].
@@ -83,4 +85,4 @@ With arg, you are asked to select which language."
 
 (provide 'mule-help)
 
-;;; mule-help.el ends here
\ No newline at end of file
+;;; mule-help.el ends here