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 | a3296f5a102a4d5649af06e40ef7b5dce48efae0 (patch) | |
| tree | 482abb9212728dc4b0ea07902d0bcf3bb06ed2c7 /lisp/emacs-lisp | |
| parent | 12c9fbcc14726bf374070d485a13f0aff4e8268b (diff) | |
| download | emacs-a3296f5a102a4d5649af06e40ef7b5dce48efae0.tar.gz emacs-a3296f5a102a4d5649af06e40ef7b5dce48efae0.tar.bz2 emacs-a3296f5a102a4d5649af06e40ef7b5dce48efae0.zip | |
(copyright-regexp): Recognize ISO copyright symbol.
(copyright-update): Pattern is now match #2, not #1.
Diffstat (limited to 'lisp/emacs-lisp')
| -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) |