aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1995-12-03 20:43:00 +0000
committerKarl Heuer1995-12-03 20:43:00 +0000
commita3296f5a102a4d5649af06e40ef7b5dce48efae0 (patch)
tree482abb9212728dc4b0ea07902d0bcf3bb06ed2c7
parent12c9fbcc14726bf374070d485a13f0aff4e8268b (diff)
downloademacs-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.el6
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.
39Must contain \\( \\) construct matching the years.") 39The 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)