Mercurial > emacs
changeset 13684:0263e1d2888e
(copyright-regexp): Recognize ISO copyright symbol.
(copyright-update): Pattern is now match #2, not #1.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sun, 03 Dec 1995 20:43:00 +0000 |
| parents | d628bf92f672 |
| children | bfc0a609e15a |
| files | lisp/emacs-lisp/copyright.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/copyright.el Sun Dec 03 01:51:01 1995 +0000 +++ b/lisp/emacs-lisp/copyright.el Sun Dec 03 20:43:00 1995 +0000 @@ -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 @@ (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)