From a19820904052a7a78e3dfbb553fc6b29f6680afd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 23 Jul 1993 18:33:00 +0000 Subject: [PATCH] (doctor-type-symbol): Win if auto-fill-function is nil. --- lisp/play/doctor.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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)) -- 2.39.5