# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743452380 0
# Node ID 5f6e6ea4c7af06ad07b95a2ed92d58074bc6aa48
# Parent  9d4ec373d47820e654df712a98992a1e7481b665
(doctor-type-symbol): Win if auto-fill-function is nil.

diff -r 9d4ec373d478 -r 5f6e6ea4c7af lisp/play/doctor.el
--- a/lisp/play/doctor.el	Fri Jul 23 18:15:22 1993 +0000
+++ b/lisp/play/doctor.el	Fri Jul 23 18:33:00 1993 +0000
@@ -1376,8 +1376,9 @@
 	     (not *print-space*))
 	 (insert word))
 	(t (insert ?\  word)))
-  (if (> (current-column) fill-column)
-      (apply auto-fill-function nil))
+  (and auto-fill-function
+       (> (current-column) fill-column)
+       (apply auto-fill-function nil))
   (setq *print-upcase* (string-match "[.?!]$" word)
 	*print-space* t))