diff options
| author | Richard M. Stallman | 1998-04-17 01:17:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-04-17 01:17:39 +0000 |
| commit | ad21fa0789eef677c123d4b6efcf3e62fa1ccb87 (patch) | |
| tree | 8455f253051940e8e63d5bb599fa28270244fd05 | |
| parent | 89ec7f07d158767b83ad4f7ed70e1729a25d64e4 (diff) | |
| download | emacs-ad21fa0789eef677c123d4b6efcf3e62fa1ccb87.tar.gz emacs-ad21fa0789eef677c123d4b6efcf3e62fa1ccb87.zip | |
(help-with-tutorial): Locally bind file and filename.
| -rw-r--r-- | lisp/help.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el index 6d2ae57b08d..03824b0e124 100644 --- a/lisp/help.el +++ b/lisp/help.el | |||
| @@ -177,7 +177,8 @@ With arg, you are asked to choose which language." | |||
| 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) |