From b3303df7ab109ec17cc54164f093a42cbd76f529 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 14 Jan 2000 22:42:11 +0000 Subject: [PATCH] (copyright-update): Removed the requirement for a trailing space from `copyright-regexp', to support copyrights with owner specified on a separate line.. --- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/copyright.el | 3 +-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e9cceccc3d2..bc3ee6007fd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2000-01-14 Gerd Moellmann + * emacs-lisp/copyright.el (copyright-update): Removed the + requirement for a trailing space from `copyright-regexp', to + support copyrights with owner specified on a separate line.. + * align.el: New file. * menu-bar.el (menu-bar-tools-menu): Add EUDC submenu. diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el index c4fd29cc64c..8499b815df1 100644 --- a/lisp/emacs-lisp/copyright.el +++ b/lisp/emacs-lisp/copyright.el @@ -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 @@ 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)) -- 2.39.5