mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(help-with-tutorial): Use current-language-environment.

Browse Source
This commit is contained in:
Richard M. Stallman 1997-08-19 04:39:43 +00:00
parent 2b3f69c8a3
commit da4127720b
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/help.el
View File

@ -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)))