From a3296f5a102a4d5649af06e40ef7b5dce48efae0 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sun, 3 Dec 1995 20:43:00 +0000 Subject: [PATCH] (copyright-regexp): Recognize ISO copyright symbol. (copyright-update): Pattern is now match #2, not #1. --- lisp/emacs-lisp/copyright.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el index cea6d6f2072..e6f5ba34f74 100644 --- a/lisp/emacs-lisp/copyright.el +++ b/lisp/emacs-lisp/copyright.el @@ -34,9 +34,9 @@ (defvar copyright-regexp - "[Cc]opyright\\s *:?\\s *(C)\\s *\\([1-9][-0-9, ']*[0-9]+\\) " + "\\(\251\\|[Cc]opyright\\s *:?\\s *(C)\\)\\s *\\([1-9][-0-9, ']*[0-9]+\\) " "*What your copyright notice looks like. -Must contain \\( \\) construct matching the years.") +The second \\( \\) construct must match the years.") (defvar copyright-query 'function @@ -68,7 +68,7 @@ copyright, if any, are updated as well." (widen) (goto-char (point-min)) (if (re-search-forward copyright-regexp copyright-limit t) - (if (string= (buffer-substring (- (match-end 1) 2) (match-end 1)) + (if (string= (buffer-substring (- (match-end 2) 2) (match-end 2)) (substring copyright-current-year -2)) () (backward-char 1) -- 2.39.2