Mercurial > emacs

comparison lisp/help.el @ 17005:1fa50c7fdde3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(help-with-tutorial): Prefix argument to specify a language interactively.
author Karl Heuer <kwzh@gnu.org>
date Thu, 20 Feb 1997 05:45:01 +0000
parents 16e25f6a3725
children 9438563a5151
comparison
equal deleted inserted replaced
17004:cd1d930a2c98 17005:1fa50c7fdde3
127 127
128 (defun help-quit () 128 (defun help-quit ()
129 (interactive) 129 (interactive)
130 nil) 130 nil)
131 131
132 (defun help-with-tutorial () 132 (defun help-with-tutorial (&optional arg)
133 "Select the Emacs learn-by-doing tutorial." 133 "Select the Emacs learn-by-doing tutorial.
134 (interactive) 134 A tutorial written in the current primary language is selected.
135 (let ((file (expand-file-name "~/TUTORIAL"))) 135 If there's no tutorial in the language, \"TUTORIAL\" is selected.
136 With arg, users are asked to select language."
137 (interactive "P")
138 (let* ((filename
139 (let ((lang (if arg (read-language-name 'tutorial "Language: ")
140 primary-language)))
141 (get-language-info lang 'tutorial)))
142 (file (expand-file-name (concat "~/" filename))))
136 (delete-other-windows) 143 (delete-other-windows)
137 (if (get-file-buffer file) 144 (if (get-file-buffer file)
138 (switch-to-buffer (get-file-buffer file)) 145 (switch-to-buffer (get-file-buffer file))
139 (switch-to-buffer (create-file-buffer file)) 146 (switch-to-buffer (create-file-buffer file))
140 (setq buffer-file-name file) 147 (setq buffer-file-name file)
141 (setq default-directory (expand-file-name "~/")) 148 (setq default-directory (expand-file-name "~/"))
142 (setq buffer-auto-save-file-name nil) 149 (setq buffer-auto-save-file-name nil)
143 (insert-file-contents (expand-file-name "TUTORIAL" data-directory)) 150 (insert-file-contents (expand-file-name filename data-directory))
144 (goto-char (point-min)) 151 (goto-char (point-min))
145 (search-forward "\n<<") 152 (search-forward "\n<<")
146 (beginning-of-line) 153 (beginning-of-line)
147 (delete-region (point) (progn (end-of-line) (point))) 154 (delete-region (point) (progn (end-of-line) (point)))
148 (let ((n (- (window-height (selected-window)) 155 (let ((n (- (window-height (selected-window))