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." |