diff options
Diffstat (limited to 'lisp/tutorial.el')
| -rw-r--r-- | lisp/tutorial.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/tutorial.el b/lisp/tutorial.el index 64879e5cfd5..6f76068ea9d 100644 --- a/lisp/tutorial.el +++ b/lisp/tutorial.el | |||
| @@ -765,14 +765,13 @@ Run the Viper tutorial? ")) | |||
| 765 | (funcall 'viper-tutorial 0)) | 765 | (funcall 'viper-tutorial 0)) |
| 766 | (message "Tutorial aborted by user")) | 766 | (message "Tutorial aborted by user")) |
| 767 | (message prompt1))) | 767 | (message prompt1))) |
| 768 | (let* ((lang (if arg | 768 | (let* ((lang (cond |
| 769 | (let ((minibuffer-setup-hook minibuffer-setup-hook)) | 769 | (arg |
| 770 | (add-hook 'minibuffer-setup-hook | 770 | (minibuffer-with-setup-hook #'minibuffer-completion-help |
| 771 | 'minibuffer-completion-help) | 771 | (read-language-name 'tutorial "Language: " "English"))) |
| 772 | (read-language-name 'tutorial "Language: " "English")) | 772 | ((get-language-info current-language-environment 'tutorial) |
| 773 | (if (get-language-info current-language-environment 'tutorial) | 773 | current-language-environment) |
| 774 | current-language-environment | 774 | (t "English"))) |
| 775 | "English"))) | ||
| 776 | (filename (get-language-info lang 'tutorial)) | 775 | (filename (get-language-info lang 'tutorial)) |
| 777 | (tut-buf-name filename) | 776 | (tut-buf-name filename) |
| 778 | (old-tut-buf (get-buffer tut-buf-name)) | 777 | (old-tut-buf (get-buffer tut-buf-name)) |