changeset 27329:04373d2778b2

(copyright-update): Removed the requirement for a trailing space from `copyright-regexp', to support copyrights with owner specified on a separate line..
author Gerd Moellmann <gerd@gnu.org>
date Fri, 14 Jan 2000 22:39:08 +0000
parents 7748234c70d7
children 960ec5c6503d
files lisp/emacs-lisp/copyright.el
diffstat 1 files changed, 1 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/copyright.el	Fri Jan 14 22:32:41 2000 +0000
+++ b/lisp/emacs-lisp/copyright.el	Fri Jan 14 22:39:08 2000 +0000
@@ -45,7 +45,7 @@
 (defcustom copyright-regexp
   "\\([\251]\\|@copyright{}\\|[Cc]opyright\\s *:?\\s *(C)\
 \\|[Cc]opyright\\s *:?\\s *[\251]\\)\
-\\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 @@
 	      (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))