Re: Fix to the copyright.el regexp to catch multi-line copyrights.

[Daniel Pfeiffer <occitan@esperanto.org>]

Hello Lars,

Lars Magne Ingebrigtsen <larsi@gnus.org> skribis:
> MIME-Version: 1.0
> Content-Type: text/plain; charset=utf-8
> Content-Transfer-Encoding: quoted-printable

your mailer seems to be broken, this resulted in an illegible regexp:
>  (defcustom copyright-regexp
>    "\\([\251=C2=81=C2=A9]\\|@copyright{}\\|[Cc]opyright\\s *:?\\s *(C)\
>  \\|[Cc]opyright\\s *:?\\s *[\251=C2=81=C2=A9]\\)\
> -\\s *\\([1-9][-0-9, ']*[0-9]+\\)"
> +\\s *\\([1-9][-0-9, ';\n\t]*[0-9]+\\)"

Anyways, when you get this sorted out check who the maintainer for this is
-- I haven't touched it in years.

> +(defun copyright-update-directory (directory)
> +  "Update the copyright statements in DIRECTORY.
> +Only .el files will be updated."
> +  (interactive "DUpdate copyrights in: ")
> +  (let ((current-year (format-time-string "%Y")))
> +  (dolist (file (directory-files directory t "\\.el$"))
> +    (when (string= current-year
> +		   (format-time-string "%Y" (nth 5 (file-attributes file))))
> +      (find-file file)
> +      (copyright-update)))))

That's a very questionable approach!  Why would I want to do it only for
.el files?  And why precisely for a directory?  Better find out how the
file-name shell pattern expansion works and use that.

And what's the use of opening a whole bunch of files?  At the end there
should be some save-buffers-dialogue for only those files that were opened
and modified!

Daniel