From da4127720b9b50c713659ef42b31556e177cf7e4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 19 Aug 1997 04:39:43 +0000 Subject: [PATCH] (help-with-tutorial): Use current-language-environment. --- lisp/help.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/help.el b/lisp/help.el index b549687925c..ffc359a06f3 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -133,15 +133,16 @@ Commands: (defun help-with-tutorial (&optional arg) "Select the Emacs learn-by-doing tutorial. -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." +If there is a tutorial version written in the language +of the selected anguage envgironment, that version is used. +If there's no tutorial in that language, `TUTORIAL' is selected. +With arg, you are asked to select which language." (interactive "P") (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 lang current-language-environment)) (setq filename (or (get-language-info lang 'tutorial) "TUTORIAL")) (setq file (expand-file-name (concat "~/" filename))) -- 2.39.2