Mercurial > emacs
comparison lisp/textmodes/fill.el @ 22728:4596d7f197d8
(fill-individual-paragraphs): Fix previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 09 Jul 1998 05:32:47 +0000 |
| parents | d858c344ab27 |
| children | 8d234814a5a6 |
comparison
equal
deleted
inserted
replaced
| 22727:eb18b97af384 | 22728:4596d7f197d8 |
|---|---|
| 1037 (setq two-lines-prefix | 1037 (setq two-lines-prefix |
| 1038 (fill-context-prefix | 1038 (fill-context-prefix |
| 1039 (point) | 1039 (point) |
| 1040 (save-excursion (forward-line 2) | 1040 (save-excursion (forward-line 2) |
| 1041 (point)))) | 1041 (point)))) |
| 1042 (setq adjusted-two-lines-prefix | 1042 (when two-lines-prefix |
| 1043 (substring two-lines-prefix 0 | 1043 (setq adjusted-two-lines-prefix |
| 1044 (string-match "[ \t]*\\'" | 1044 (substring two-lines-prefix 0 |
| 1045 two-lines-prefix))) | 1045 (string-match "[ \t]*\\'" |
| 1046 two-lines-prefix)))) | |
| 1046 ;; See if JUST-ONE-LINE-PREFIX | 1047 ;; See if JUST-ONE-LINE-PREFIX |
| 1047 ;; is the same as TWO-LINES-PREFIX | 1048 ;; is the same as TWO-LINES-PREFIX |
| 1048 ;; except perhaps with longer whitespace. | 1049 ;; except perhaps with longer whitespace. |
| 1049 (if (and just-one-line-prefix | 1050 (if (and just-one-line-prefix |
| 1050 two-lines-prefix | 1051 two-lines-prefix |
| 1086 ;; Fill this paragraph, but don't add a newline at the end. | 1087 ;; Fill this paragraph, but don't add a newline at the end. |
| 1087 (let ((had-newline (bolp))) | 1088 (let ((had-newline (bolp))) |
| 1088 (fill-region-as-paragraph start (point) justify) | 1089 (fill-region-as-paragraph start (point) justify) |
| 1089 (or had-newline (delete-char -1)))))))) | 1090 (or had-newline (delete-char -1)))))))) |
| 1090 | 1091 |
| 1091 (defun fill-strip-trailing-space (string) | |
| 1092 )) | |
| 1093 | |
| 1094 ;;; fill.el ends here | 1092 ;;; fill.el ends here |