Mercurial > hg > xemacs-beta
comparison lisp/prim/fill.el @ 126:1370575f1259 xemacs-20-1p1
Import from CVS: tag xemacs-20-1p1
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:27:39 +0200 |
| parents | 48d667d6f17f |
| children | e292c9648bb9 |
comparison
equal
deleted
inserted
replaced
| 125:8b0638b347ec | 126:1370575f1259 |
|---|---|
| 459 ;(skip-chars-forward "^ \n\t") | 459 ;(skip-chars-forward "^ \n\t") |
| 460 (fill-move-forward-to-break-point re-break-point) | 460 (fill-move-forward-to-break-point re-break-point) |
| 461 ;; end patch | 461 ;; end patch |
| 462 (setq first nil))) | 462 (setq first nil))) |
| 463 ;; Normally, move back over the single space between the words. | 463 ;; Normally, move back over the single space between the words. |
| 464 (forward-char -1)) | 464 (if (eq (preceding-char) ?\ ) |
| 465 (forward-char -1))) | |
| 465 ;; If the left margin and fill prefix by themselves | 466 ;; If the left margin and fill prefix by themselves |
| 466 ;; pass the fill-column, keep at least one word. | 467 ;; pass the fill-column, keep at least one word. |
| 467 ;; This handles the first line of the paragraph. | 468 ;; This handles the first line of the paragraph. |
| 468 (if (and (zerop prefixcol) | 469 (if (and (zerop prefixcol) |
| 469 (let ((fill-point (point)) nchars) | 470 (let ((fill-point (point)) nchars) |