diff options
| author | Karl Heuer | 1998-02-25 22:59:49 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-02-25 22:59:49 +0000 |
| commit | 9f0ef3ebed7ed909bb9c680d099feb3c47e359f2 (patch) | |
| tree | eef3724d341c6b32ab1e6bcf56aab21338891209 | |
| parent | c863c92df31c9d4277b9f4701f15b8df8f21f9de (diff) | |
| download | emacs-9f0ef3ebed7ed909bb9c680d099feb3c47e359f2.tar.gz emacs-9f0ef3ebed7ed909bb9c680d099feb3c47e359f2.zip | |
(mathlst): Fix typo.
(shortlst): Avoid saying "Can you be", which confuses the doctor.
| -rw-r--r-- | lisp/play/doctor.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el index 619203432d5..64f92102313 100644 --- a/lisp/play/doctor.el +++ b/lisp/play/doctor.el | |||
| @@ -206,7 +206,7 @@ reads the sentence before point, and prints the Doctor's answer." | |||
| 206 | (go on\, don\'t be afraid \.) | 206 | (go on\, don\'t be afraid \.) |
| 207 | (i need a little more detail please \.) | 207 | (i need a little more detail please \.) |
| 208 | (you\'re being a bit brief\, ($ please) go into detail \.) | 208 | (you\'re being a bit brief\, ($ please) go into detail \.) |
| 209 | (can you be more explicit \?) | 209 | (can you ($ please) be more explicit \?) |
| 210 | (and \?) | 210 | (and \?) |
| 211 | (($ please) go into more detail \?) | 211 | (($ please) go into more detail \?) |
| 212 | (you aren\'t being very talkative today\!) | 212 | (you aren\'t being very talkative today\!) |
| @@ -490,7 +490,7 @@ reads the sentence before point, and prints the Doctor's answer." | |||
| 490 | (setq mathlst '( | 490 | (setq mathlst '( |
| 491 | (($ describe) ($ something) about math \.) | 491 | (($ describe) ($ something) about math \.) |
| 492 | (($ maybe) your ($ problems) ($ arerelated) (// found) \.) | 492 | (($ maybe) your ($ problems) ($ arerelated) (// found) \.) |
| 493 | (i do\'nt know much (// found) \, but ($ continue) | 493 | (i don\'t know much (// found) \, but ($ continue) |
| 494 | anyway \.))) | 494 | anyway \.))) |
| 495 | (make-local-variable 'zippylst) | 495 | (make-local-variable 'zippylst) |
| 496 | (setq zippylst '( | 496 | (setq zippylst '( |