From 3060bf835dc8fe52ba6a9a5d663efe020183c383 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 9 Apr 1998 05:39:11 +0000 Subject: [PATCH] (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. --- lisp/help.el | 24 ++++++------------------ 1 file changed, 6 insertions(+), 18 deletions(-) diff --git a/lisp/help.el b/lisp/help.el index 2f28e53796e..56f62f7b1fc 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -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) -- 2.39.2