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 | 662850f02fafab99e976d86441b8149ecf7f5a34 (patch) | |
| tree | a86b9def1f670fe8e2da683bb5f8830980c7c174 /lisp/play/doctor.el | |
| parent | 420180b1adf725e16b7e91483a74d23be9b9fe3f (diff) | |
| download | emacs-662850f02fafab99e976d86441b8149ecf7f5a34.tar.gz | |
(doctor-type-symbol): Win if auto-fill-function is nil.
Diffstat (limited to 'lisp/play/doctor.el')
| -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)) |