189 |
last) |
last) |
190 |
(set-marker e (1+ (match-end 2))) |
(set-marker e (1+ (match-end 2))) |
191 |
(goto-char s) |
(goto-char s) |
192 |
|
;; Back up one character so that our search can match the first year. |
193 |
|
(backward-char 1) |
194 |
(while (and (< (point) (marker-position e)) |
(while (and (< (point) (marker-position e)) |
195 |
(re-search-forward "\\([^0-9]\\)\\([0-9]+\\)[^0-9]" |
(re-search-forward "\\([^0-9]\\)\\([0-9]+\\)[^0-9]" |
196 |
(marker-position e) t)) |
(marker-position e) t)) |
206 |
(setq last p))) |
(setq last p))) |
207 |
(when last |
(when last |
208 |
(goto-char last) |
(goto-char last) |
209 |
(let ((fill-prefix " ")) |
;; Don't mess up whitespace after the years. |
210 |
(fill-region s last)) |
(skip-chars-backward " \t") |
211 |
|
(save-restriction |
212 |
|
(narrow-to-region (point-min) (point)) |
213 |
|
(let ((fill-prefix " ")) |
214 |
|
(fill-region s last))) |
215 |
) |
) |
216 |
(set-marker e nil) |
(set-marker e nil) |
217 |
(copyright-update nil t)) |
(copyright-update nil t)) |