mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 11:50:51 -08:00
Code Issues Projects Releases Wiki Activity

(copyright-regexp): Recognize ISO copyright symbol.

Browse source 
(copyright-update): Pattern is now match #2, not #1.
This commit is contained in:
Karl Heuer 1995-12-03 20:43:00 +00:00
parent 12c9fbcc14
commit a3296f5a10
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/copyright.el
View file

@ -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)