diff options
| author | Juanma Barranquero | 2008-04-08 11:40:04 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2008-04-08 11:40:04 +0000 |
| commit | 68af6bd60796527d9e6769b1a50dbfe17da37059 (patch) | |
| tree | ad5cf79116ff2670c3d2e72db0ba11cfb98f90d6 | |
| parent | 612b05921fb2a0188109591adb2e44eba0c9c63b (diff) | |
| download | emacs-68af6bd60796527d9e6769b1a50dbfe17da37059.tar.gz emacs-68af6bd60796527d9e6769b1a50dbfe17da37059.zip | |
(copyright-update-year): Use `looking-at-p'.
| -rw-r--r-- | lisp/emacs-lisp/copyright.el | 7 |
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 |