Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 41310:ab1a42ecf560
(lisp-fill-paragraph): Don't move back to a line without a comment.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 20 Nov 2001 15:10:25 +0000 |
| parents | a5e4e3a88a9e |
| children | 15d7e3180dcf |
comparison
equal
deleted
inserted
replaced
| 41309:8c4c4027c7bd | 41310:ab1a42ecf560 |
|---|---|
| 1080 (save-restriction | 1080 (save-restriction |
| 1081 (beginning-of-line) | 1081 (beginning-of-line) |
| 1082 (narrow-to-region | 1082 (narrow-to-region |
| 1083 ;; Find the first line we should include in the region to fill. | 1083 ;; Find the first line we should include in the region to fill. |
| 1084 (save-excursion | 1084 (save-excursion |
| 1085 (while (and (looking-at "[ \t]*;") | 1085 (while (and (zerop (forward-line -1)) |
| 1086 (zerop (forward-line -1)))) | 1086 (looking-at "[ \t]*;"))) |
| 1087 ;; We may have gone too far. Go forward again. | |
| 1088 (or (looking-at ".*;") | |
| 1089 (forward-line 1)) | |
| 1087 (point)) | 1090 (point)) |
| 1088 ;; Find the beginning of the first line past the region to fill. | 1091 ;; Find the beginning of the first line past the region to fill. |
| 1089 (save-excursion | 1092 (save-excursion |
| 1090 (while (progn (forward-line 1) | 1093 (while (progn (forward-line 1) |
| 1091 (looking-at "[ \t]*;"))) | 1094 (looking-at "[ \t]*;"))) |