Function: copyright-find-end

copyright-find-end is a byte-compiled function defined in copyright.el.gz.

Signature

(copyright-find-end)

Documentation

Possibly adjust the search performed by copyright-find-copyright.

If the years continue onto multiple lines that are marked as comments, skips to the end of all the years.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/copyright.el.gz
(defun copyright-find-end ()
  "Possibly adjust the search performed by `copyright-find-copyright'.
If the years continue onto multiple lines that are marked as comments,
skips to the end of all the years."
  (while (save-excursion
	   (and (eq (following-char) ?,)
		(progn (forward-char 1) t)
		(progn (skip-chars-forward " \t") (eolp))
		comment-start-skip
		(save-match-data
		  (forward-line 1)
		  (and (looking-at comment-start-skip)
		       (goto-char (match-end 0))))
		(looking-at-p copyright-years-regexp)))
    (forward-line 1)
    (re-search-forward comment-start-skip)
    ;; (2) Need the extra \\( \\) so that the years are subexp 3, as
    ;; they are at note (1) above.
    (re-search-forward (format "\\(%s\\)" copyright-years-regexp))))