diff options
| author | Richard M. Stallman | 1993-07-23 18:33:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-23 18:33:00 +0000 |
| commit | a19820904052a7a78e3dfbb553fc6b29f6680afd (patch) | |
| tree | 9e0b8dc4cc302146df5116c622e23c5be6c4259d | |
| parent | f65069352a359e8994ec1c5d54a3f27209d6cab2 (diff) | |
| download | emacs-a19820904052a7a78e3dfbb553fc6b29f6680afd.tar.gz emacs-a19820904052a7a78e3dfbb553fc6b29f6680afd.zip | |
(doctor-type-symbol): Win if auto-fill-function is nil.
| -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." | |||
| 1376 | (not *print-space*)) | 1376 | (not *print-space*)) |
| 1377 | (insert word)) | 1377 | (insert word)) |
| 1378 | (t (insert ?\ word))) | 1378 | (t (insert ?\ word))) |
| 1379 | (if (> (current-column) fill-column) | 1379 | (and auto-fill-function |
| 1380 | (apply auto-fill-function nil)) | 1380 | (> (current-column) fill-column) |
| 1381 | (apply auto-fill-function nil)) | ||
| 1381 | (setq *print-upcase* (string-match "[.?!]$" word) | 1382 | (setq *print-upcase* (string-match "[.?!]$" word) |
| 1382 | *print-space* t)) | 1383 | *print-space* t)) |
| 1383 | 1384 | ||