From 68af6bd60796527d9e6769b1a50dbfe17da37059 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 8 Apr 2008 11:40:04 +0000 Subject: [PATCH] (copyright-update-year): Use `looking-at-p'. --- lisp/emacs-lisp/copyright.el | 7 +++---- 1 file 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." (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 -- 2.39.5