diff options
| -rw-r--r-- | lisp/emacs-lisp/lisp-mnt.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el index fc3caf3359a..a1c5b6977f8 100644 --- a/lisp/emacs-lisp/lisp-mnt.el +++ b/lisp/emacs-lisp/lisp-mnt.el | |||
| @@ -326,12 +326,13 @@ Return argument is of the form (\"HOLDER\" \"YEAR1\" ... \"YEARN\")" | |||
| 326 | (start (point)) | 326 | (start (point)) |
| 327 | (end (line-end-position))) | 327 | (end (line-end-position))) |
| 328 | ;; Cope with multi-line copyright `lines'. Assume the second | 328 | ;; Cope with multi-line copyright `lines'. Assume the second |
| 329 | ;; line is indented (with the same commenting style). | 329 | ;; line is indented at least as much as the original, with the |
| 330 | ;; same commenting style. | ||
| 330 | (save-excursion | 331 | (save-excursion |
| 331 | (beginning-of-line 2) | 332 | (beginning-of-line 2) |
| 332 | (let ((str (concat (match-string-no-properties 1) "[ \t]+"))) | 333 | (let ((str (match-string-no-properties 1))) |
| 333 | (beginning-of-line) | 334 | (beginning-of-line) |
| 334 | (while (looking-at str) | 335 | (while (and (looking-at str) (not (looking-at lm-copyright-prefix))) |
| 335 | (setq end (line-end-position)) | 336 | (setq end (line-end-position)) |
| 336 | (beginning-of-line 2)))) | 337 | (beginning-of-line 2)))) |
| 337 | ;; Make a single line and parse that. | 338 | ;; Make a single line and parse that. |