diff options
| author | Kenichi Handa | 2012-09-30 23:39:46 +0900 |
|---|---|---|
| committer | Kenichi Handa | 2012-09-30 23:39:46 +0900 |
| commit | c194970e15b6d6efa07697679a25dfab3aa76442 (patch) | |
| tree | 49aec8be9d2dcc74ad3c81f562e48308d8e27b75 /lisp/tutorial.el | |
| parent | 95402d5faa114a311cabfb8c64cf22a93787a066 (diff) | |
| parent | dd946752ab8810149a66a3eff469eb128709972d (diff) | |
| download | emacs-c194970e15b6d6efa07697679a25dfab3aa76442.tar.gz emacs-c194970e15b6d6efa07697679a25dfab3aa76442.zip | |
merge trunk
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)) |