aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2008-04-08 11:40:04 +0000
committerJuanma Barranquero2008-04-08 11:40:04 +0000
commit68af6bd60796527d9e6769b1a50dbfe17da37059 (patch)
treead5cf79116ff2670c3d2e72db0ba11cfb98f90d6
parent612b05921fb2a0188109591adb2e44eba0c9c63b (diff)
downloademacs-68af6bd60796527d9e6769b1a50dbfe17da37059.tar.gz
emacs-68af6bd60796527d9e6769b1a50dbfe17da37059.zip
(copyright-update-year): Use `looking-at-p'.
-rw-r--r--lisp/emacs-lisp/copyright.el7
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el
index b3e0307a519..345a76a22d1 100644
--- a/lisp/emacs-lisp/copyright.el
+++ b/lisp/emacs-lisp/copyright.el
@@ -113,12 +113,11 @@ When this is `function', only ask when called non-interactively."
113 (progn (forward-char 1) t) 113 (progn (forward-char 1) t)
114 (progn (skip-chars-forward " \t") (eolp)) 114 (progn (skip-chars-forward " \t") (eolp))
115 comment-start-skip 115 comment-start-skip
116 (save-match-data 116 (progn
117 (forward-line 1) 117 (forward-line 1)
118 (and (looking-at comment-start-skip) 118 (and (looking-at-p comment-start-skip)
119 (goto-char (match-end 0)))) 119 (goto-char (match-end 0))))
120 (save-match-data 120 (looking-at-p copyright-years-regexp)))
121 (looking-at copyright-years-regexp))))
122 (forward-line 1) 121 (forward-line 1)
123 (re-search-forward comment-start-skip) 122 (re-search-forward comment-start-skip)
124 ;; (2) Need the extra \\( \\) so that the years are subexp 3, as 123 ;; (2) Need the extra \\( \\) so that the years are subexp 3, as