diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-12-03 20:43:00 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-12-03 20:43:00 +0000 |
| commit | 590a5acb70f0a18ebc15968ae3232e6b3c07d3db (patch) | |
| tree | 74ffc3c9be3b867563cf6d362e319235df23f7af | |
| parent | 85c73ba71d8ee35def45b462e246d1853da90b83 (diff) | |
| download | emacs-590a5acb70f0a18ebc15968ae3232e6b3c07d3db.tar.gz | |
(copyright-regexp): Recognize ISO copyright symbol.
(copyright-update): Pattern is now match #2, not #1.
| -rw-r--r-- | lisp/emacs-lisp/copyright.el | 6 |
1 files 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) |