diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-05-12 06:56:21 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-05-12 06:56:21 +0000 |
| commit | 7c9b148e8095c4cb6224cbc9e4fe842d4221d5e8 (patch) | |
| tree | f101d5f662637c2eab616075f53e538c90343e85 /lisp/help.el | |
| parent | 494ec9bc1048acac8636d82d277bf4cc1d8ce9f7 (diff) | |
| download | emacs-7c9b148e8095c4cb6224cbc9e4fe842d4221d5e8.tar.gz | |
(help-with-tutorial): Fix a bug of handling non-English
tutorial file.
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/help.el b/lisp/help.el index d9901cb35c6..ede3f7b7ed8 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -135,11 +135,14 @@ 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)))) + (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 filename (or (get-language-info lang 'tutorial) + "TUTORIAL")) + (setq file (expand-file-name (concat "~/" filename))) (delete-other-windows) (if (get-file-buffer file) (switch-to-buffer (get-file-buffer file)) |