play/doctor.el: bugfix for `doctor-mode'.

* play/doctor.el (doctor-mode): Bugfix: escape the "," character
in a `doctor-type' argument.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5d346845e58..ce58c47ad12 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-02-16  Bastien Guerry  <bzg@altern.org>
+
+        * play/doctor.el (doctor-mode): Bugfix: escape the "," character
+        in a `doctor-type' argument.
+
 2011-02-16  Alex Harsanyi  <AlexHarsanyi@gmail.com>
 
         * net/soap-client.el:
diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index 5b3b4aba0fe..c60472e9386 100644
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -141,7 +141,7 @@ reads the sentence before point, and prints the Doctor's answer."
   (turn-on-auto-fill)
   (doctor-type '(i am the psychotherapist \.
                  (doc$ doctor--please) (doc$ doctor--describe) your (doc$ doctor--problems) \.
-                 each time you are finished talking, type \R\E\T twice \.))
+                 each time you are finished talking\, type \R\E\T twice \.))
   (insert "\n"))
 
 (defun make-doctor-variables ()