diff options
| author | Karl Heuer | 1995-12-03 20:43:00 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-12-03 20:43:00 +0000 |
| commit | a3296f5a102a4d5649af06e40ef7b5dce48efae0 (patch) | |
| tree | 482abb9212728dc4b0ea07902d0bcf3bb06ed2c7 | |
| parent | 12c9fbcc14726bf374070d485a13f0aff4e8268b (diff) | |
| download | emacs-a3296f5a102a4d5649af06e40ef7b5dce48efae0.tar.gz emacs-a3296f5a102a4d5649af06e40ef7b5dce48efae0.zip | |
(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 @@ | |||
| 34 | 34 | ||
| 35 | 35 | ||
| 36 | (defvar copyright-regexp | 36 | (defvar copyright-regexp |
| 37 | "[Cc]opyright\\s *:?\\s *(C)\\s *\\([1-9][-0-9, ']*[0-9]+\\) " | 37 | "\\(\251\\|[Cc]opyright\\s *:?\\s *(C)\\)\\s *\\([1-9][-0-9, ']*[0-9]+\\) " |
| 38 | "*What your copyright notice looks like. | 38 | "*What your copyright notice looks like. |
| 39 | Must contain \\( \\) construct matching the years.") | 39 | The second \\( \\) construct must match the years.") |
| 40 | 40 | ||
| 41 | 41 | ||
| 42 | (defvar copyright-query 'function | 42 | (defvar copyright-query 'function |
| @@ -68,7 +68,7 @@ copyright, if any, are updated as well." | |||
| 68 | (widen) | 68 | (widen) |
| 69 | (goto-char (point-min)) | 69 | (goto-char (point-min)) |
| 70 | (if (re-search-forward copyright-regexp copyright-limit t) | 70 | (if (re-search-forward copyright-regexp copyright-limit t) |
| 71 | (if (string= (buffer-substring (- (match-end 1) 2) (match-end 1)) | 71 | (if (string= (buffer-substring (- (match-end 2) 2) (match-end 2)) |
| 72 | (substring copyright-current-year -2)) | 72 | (substring copyright-current-year -2)) |
| 73 | () | 73 | () |
| 74 | (backward-char 1) | 74 | (backward-char 1) |