diff options
| author | Chong Yidong | 2009-05-12 16:42:20 +0000 |
|---|---|---|
| committer | Chong Yidong | 2009-05-12 16:42:20 +0000 |
| commit | b39d28c92ac4cf75c0a5f0a2511403dee0238909 (patch) | |
| tree | de767871aaf7b610ca4864deb6fac79b3cf5e7ca | |
| parent | 7951ca5346fe01c95f5ab9dfe7c11e9c0d145f45 (diff) | |
| download | emacs-b39d28c92ac4cf75c0a5f0a2511403dee0238909.tar.gz emacs-b39d28c92ac4cf75c0a5f0a2511403dee0238909.zip | |
* tutorial.el (help-with-tutorial): Use TUTORIAL.xx for the tutorial
buffer, since that is what the tutorial text assumes.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/tutorial.el | 4 |
2 files changed, 3 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2e8ec2b913b..3cf1f41ecec 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,7 +1,8 @@ | |||
| 1 | 2009-05-12 Chong Yidong <cyd@stupidchicken.com> | 1 | 2009-05-12 Chong Yidong <cyd@stupidchicken.com> |
| 2 | 2 | ||
| 3 | * tutorial.el (help-with-tutorial): Don't use text mode, since the | 3 | * tutorial.el (help-with-tutorial): Don't use text mode, since the |
| 4 | tutorial text assume Fundamental mode. | 4 | tutorial text assume Fundamental mode. Use TUTORIAL.xx for the |
| 5 | tutorial buffer, since that is what the tutorial text assumes. | ||
| 5 | 6 | ||
| 6 | 2009-05-11 Stefan Monnier <monnier@iro.umontreal.ca> | 7 | 2009-05-11 Stefan Monnier <monnier@iro.umontreal.ca> |
| 7 | 8 | ||
diff --git a/lisp/tutorial.el b/lisp/tutorial.el index 242d0fe3a32..7df71e02af8 100644 --- a/lisp/tutorial.el +++ b/lisp/tutorial.el | |||
| @@ -773,9 +773,7 @@ Run the Viper tutorial? ")) | |||
| 773 | current-language-environment | 773 | current-language-environment |
| 774 | "English"))) | 774 | "English"))) |
| 775 | (filename (get-language-info lang 'tutorial)) | 775 | (filename (get-language-info lang 'tutorial)) |
| 776 | ;; Choose a buffer name including the language so that | 776 | (tut-buf-name filename) |
| 777 | ;; several languages can be tested simultaneously: | ||
| 778 | (tut-buf-name (concat "TUTORIAL (" lang ")")) | ||
| 779 | (old-tut-buf (get-buffer tut-buf-name)) | 777 | (old-tut-buf (get-buffer tut-buf-name)) |
| 780 | (old-tut-win (when old-tut-buf (get-buffer-window old-tut-buf t))) | 778 | (old-tut-win (when old-tut-buf (get-buffer-window old-tut-buf t))) |
| 781 | (old-tut-is-ok (when old-tut-buf | 779 | (old-tut-is-ok (when old-tut-buf |