1082 |
(narrow-to-region |
(narrow-to-region |
1083 |
;; Find the first line we should include in the region to fill. |
;; Find the first line we should include in the region to fill. |
1084 |
(save-excursion |
(save-excursion |
1085 |
(while (and (looking-at "[ \t]*;") |
(while (and (zerop (forward-line -1)) |
1086 |
(zerop (forward-line -1)))) |
(looking-at "[ \t]*;"))) |
1087 |
|
;; We may have gone too far. Go forward again. |
1088 |
|
(or (looking-at ".*;") |
1089 |
|
(forward-line 1)) |
1090 |
(point)) |
(point)) |
1091 |
;; Find the beginning of the first line past the region to fill. |
;; Find the beginning of the first line past the region to fill. |
1092 |
(save-excursion |
(save-excursion |