From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 23 Jul 1993 18:33:00 +0000 (+0000)
Subject: (doctor-type-symbol): Win if auto-fill-function is nil.
X-Git-Tag: emacs-19.34~11602
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a19820904052a7a78e3dfbb553fc6b29f6680afd;p=emacs.git

(doctor-type-symbol): Win if auto-fill-function is nil.
---

diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index 4bb60d51e76..b6a6a3a9bcc 100644
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -1376,8 +1376,9 @@ Hack on previous word, setting global variable OWNER to correct result."
 	     (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))