Mercurial > emacs
comparison lisp/help.el @ 21587:a89b6f48c73d
(help-with-tutorial): Locally bind file and filename.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 17 Apr 1998 01:17:39 +0000 |
| parents | 7a8169a735f5 |
| children | 2c9cfb84bf1b |
comparison
equal
deleted
inserted
replaced
| 21586:f6a01ea8441e | 21587:a89b6f48c73d |
|---|---|
| 175 (interactive "P") | 175 (interactive "P") |
| 176 (let ((lang (if arg | 176 (let ((lang (if arg |
| 177 (read-language-name 'tutorial "Language: " "English") | 177 (read-language-name 'tutorial "Language: " "English") |
| 178 (if (get-language-info current-language-environment 'tutorial) | 178 (if (get-language-info current-language-environment 'tutorial) |
| 179 current-language-environment | 179 current-language-environment |
| 180 "English")))) | 180 "English"))) |
| 181 file filename) | |
| 181 (setq filename (get-language-info lang 'tutorial)) | 182 (setq filename (get-language-info lang 'tutorial)) |
| 182 (setq file (expand-file-name (concat "~/" filename))) | 183 (setq file (expand-file-name (concat "~/" filename))) |
| 183 (delete-other-windows) | 184 (delete-other-windows) |
| 184 (if (get-file-buffer file) | 185 (if (get-file-buffer file) |
| 185 (switch-to-buffer (get-file-buffer file)) | 186 (switch-to-buffer (get-file-buffer file)) |