mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(help-with-tutorial): Prefix argument to specify a

Browse Source 
language interactively.
This commit is contained in:
Karl Heuer 1997-02-20 05:45:01 +00:00
parent 82d0954a23
commit 0634ea78a0
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/help.el
View File

@ -129,10 +129,17 @@ Commands:
(interactive)
nil)
(defun help-with-tutorial ()
"Select the Emacs learn-by-doing tutorial."
(interactive)
(let ((file (expand-file-name "~/TUTORIAL")))
(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."
(interactive "P")
(let* ((filename
(let ((lang (if arg (read-language-name 'tutorial "Language: ")
primary-language)))
(get-language-info lang 'tutorial)))
(file (expand-file-name (concat "~/" filename))))
(delete-other-windows)
(if (get-file-buffer file)
(switch-to-buffer (get-file-buffer file))
@ -140,7 +147,7 @@ Commands:
(setq buffer-file-name file)
(setq default-directory (expand-file-name "~/"))
(setq buffer-auto-save-file-name nil)
(insert-file-contents (expand-file-name "TUTORIAL" data-directory))
(insert-file-contents (expand-file-name filename data-directory))
(goto-char (point-min))
(search-forward "\n<<")
(beginning-of-line)