Commit 3060bf83 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(help-with-tutorial-alist): This variable deleted.

(help-with-tutorial): Get a tutorial file name by
get-language-info instead of help-with-tutorial-alist.
parent 8d4d1e65
......@@ -166,14 +166,6 @@ Commands:
(interactive)
nil)
(defvar help-with-tutorial-alist
'(("German" . "TUTORIAL.de")
("Korean" . "TUTORIAL.kr")
("Japanese" . "TUTORIAL.jp")
("Thai" . "TUTORIAL.th")
("English" . "TUTORIAL"))
"Alist mapping language names to their translated Emacs tutorial files.")
(defun help-with-tutorial (&optional arg)
"Select the Emacs learn-by-doing tutorial.
If there is a tutorial version written in the language
......@@ -181,16 +173,12 @@ of the selected language environment, that version is used.
If there's no tutorial in that language, `TUTORIAL' is selected.
With arg, you are asked to choose which language."
(interactive "P")
(let (lang filename file)
(if arg
(or (setq lang
(let* ((completion-ignore-case t))
(completing-read "Language: " help-with-tutorial-alist
nil t)))
(error "No tutorial file in language"))
(setq lang current-language-environment))
(setq filename (or (cdr (assoc lang help-with-tutorial-alist))
"TUTORIAL"))
(let ((lang (if arg
(read-language-name 'tutorial "Language: " "English")
(if (get-language-info current-language-environment 'tutorial)
current-language-environment
"English"))))
(setq filename (get-language-info lang 'tutorial))
(setq file (expand-file-name (concat "~/" filename)))
(delete-other-windows)
(if (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