* lisp/play/doctor.el (doctor-death): Escape "," characters.

Fixes: debbugs:10370

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e4d4062668d9313753139cccf3f9b316671be495..7e5fd5be1c915e32ba1fb3a948c4a0c953ee9a33 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-01-06  Ulrich Mueller  <ulm@gentoo.org>
+
+       * play/doctor.el (doctor-death): Escape "," characters.  (Bug#10370)
+
 2012-01-05  Glenn Morris  <rgm@gnu.org>
 
        * eshell/em-unix.el (diff-no-select): Autoload it.

diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index ad8e4189c222320b85e4fa9bef07f18c0018fb86..d79f9cd31bd6eda2fe36eead78f8ebadbedd912b 100644 (file)
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -1576,9 +1576,9 @@ Hack on previous word, setting global variable DOCTOR-OWNER to correct result."
                       (equal doctor-found 'killing))
                   (memq 'yourself doctor-sent)))
         (setq doctor--suicide-flag t)
-        (doctor-type '(If you are really suicidal, you might
+        (doctor-type '(If you are really suicidal\, you might
                           want to contact the Samaritans via
-                          E-mail: jo@samaritans.org or, at your option,
+                          E-mail: jo@samaritans.org or\, at your option\,
                           anonymous E-mail: samaritans@anon.twwells.com\ \.
                            or find a Befrienders crisis center at
                           http://www.befrienders.org/\ \.