Mercurial > emacs
changeset 19423:f6f7ae045fe3
(help-with-tutorial): Use current-language-environment.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 19 Aug 1997 04:39:43 +0000 |
| parents | d43fe749c103 |
| children | 3078878ae2d6 |
| files | lisp/help.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Tue Aug 19 02:32:26 1997 +0000 +++ b/lisp/help.el Tue Aug 19 04:39:43 1997 +0000 @@ -133,15 +133,16 @@ (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)))