2900 |
;; The region includes the comment starter. |
;; The region includes the comment starter. |
2901 |
(save-excursion |
(save-excursion |
2902 |
(goto-char (car c-lit-limits)) |
(goto-char (car c-lit-limits)) |
2903 |
(if (looking-at (concat "\\(" comment-start-skip "\\)$")) |
(if (and (looking-at (concat "\\(" comment-start-skip "\\)$")) |
2904 |
|
(> here (match-end 0))) |
2905 |
;; Begin with the next line. |
;; Begin with the next line. |
2906 |
(setq beg (c-point 'bonl)) |
(setq beg (c-point 'bonl)) |
2907 |
;; Fake the fill prefix in the first line. |
;; Fake the fill prefix in the first line. |