Mercurial > emacs
comparison lisp/play/doctor.el @ 4249:5f6e6ea4c7af
(doctor-type-symbol): Win if auto-fill-function is nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 23 Jul 1993 18:33:00 +0000 |
| parents | 507f64624555 |
| children | 1d3c5ef6e8a1 |
comparison
equal
deleted
inserted
replaced
| 4248:9d4ec373d478 | 4249:5f6e6ea4c7af |
|---|---|
| 1374 (insert " ")))) | 1374 (insert " ")))) |
| 1375 (cond ((or (string-match "^[.,;:?! ]" word) | 1375 (cond ((or (string-match "^[.,;:?! ]" word) |
| 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 |
| 1384 (defun doctor-build (str1 str2) | 1385 (defun doctor-build (str1 str2) |
| 1385 "Make a symbol out of the concatenation of the two non-list arguments." | 1386 "Make a symbol out of the concatenation of the two non-list arguments." |