diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-07-23 18:33:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-07-23 18:33:00 +0000 |
| commit | a19820904052a7a78e3dfbb553fc6b29f6680afd (patch) | |
| tree | 9e0b8dc4cc302146df5116c622e23c5be6c4259d /lisp/play | |
| parent | f65069352a359e8994ec1c5d54a3f27209d6cab2 (diff) | |
| download | emacs-a19820904052a7a78e3dfbb553fc6b29f6680afd.tar.gz | |
(doctor-type-symbol): Win if auto-fill-function is nil.
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/doctor.el | 5 |
1 files 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)) |