Commit 7c9b148e authored by Kenichi Handa's avatar Kenichi Handa

(help-with-tutorial): Fix a bug of handling non-English

tutorial file.
parent 494ec9bc
......@@ -135,11 +135,14 @@ A tutorial written in the current primary language is selected.
If there's no tutorial in the language, \"TUTORIAL\" is selected.
With arg, users are asked to select language."
(interactive "P")
(let* ((filename
(let ((lang (if arg (read-language-name 'tutorial "Language: ")
primary-language)))
(get-language-info lang 'tutorial)))
(file (expand-file-name (concat "~/" filename))))
(let (lang filename file)
(if arg
(or (setq lang (read-language-name 'tutorial "Language: "))
(error "No tutorial file of the specified language"))
(setq lang primary-language))
(setq filename (or (get-language-info lang 'tutorial)
"TUTORIAL"))
(setq file (expand-file-name (concat "~/" filename)))
(delete-other-windows)
(if (get-file-buffer file)
(switch-to-buffer (get-file-buffer file))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment