procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(copyright-update-year): Use `looking-at-p'.

Browse source
This commit is contained in:
Juanma Barranquero 2008-04-08 11:40:04 +00:00
parent 612b05921f
commit 68af6bd607
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -113,12 +113,11 @@ When this is `function', only ask when called non-interactively."
(progn (forward-char 1) t)
(progn (skip-chars-forward " \t") (eolp))
comment-start-skip
(save-match-data
(progn
(forward-line 1)
(and (looking-at comment-start-skip)
(and (looking-at-p comment-start-skip)
(goto-char (match-end 0))))
(save-match-data
(looking-at copyright-years-regexp))))
(looking-at-p copyright-years-regexp)))
(forward-line 1)
(re-search-forward comment-start-skip)
;; (2) Need the extra \\( \\) so that the years are subexp 3, as