From 30ea0b88813077aa9b55d86f2f17605cd12ffb9d Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 29 Jun 1999 05:57:09 +0000 Subject: [PATCH] (help-with-tutorial): Use property `tutorial-coding-system' of language-info as a coding-system to read tutorial file. --- lisp/mule/mule-help.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 <>, and change << >> to [ ]. -- 1.7.10.4