(copyright-update): Removed the

requirement for a trailing space from `copyright-regexp', to
support copyrights with owner specified on a separate line..
This commit is contained in:
Gerd Moellmann 2000-01-14 22:42:11 +00:00
parent 99453a38a6
commit b3303df7ab
2 changed files with 5 additions and 2 deletions

View file

@ -45,7 +45,7 @@
(defcustom copyright-regexp
"\\([\251<EFBFBD>©]\\|@copyright{}\\|[Cc]opyright\\s *:?\\s *(C)\
\\|[Cc]opyright\\s *:?\\s *[\251<EFBFBD>©]\\)\
\\s *\\([1-9][-0-9, ']*[0-9]+\\) "
\\s *\\([1-9][-0-9, ']*[0-9]+\\)"
"*What your copyright notice looks like.
The second \\( \\) construct must match the years."
:group 'copyright
@ -88,7 +88,6 @@ copyright, if any, are updated as well."
(if (string= (buffer-substring (- (match-end 2) 2) (match-end 2))
(substring copyright-current-year -2))
()
(backward-char 1)
(if (or (not copyright-query)
(and (eq copyright-query 'function)
(eq this-command 'copyright-update))