(copyright-update-year): Fix bug: Handle nil copyright-limit.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2d41cfb66d1ac9c43ba72d98b458d4301ea615b4..1171fe04c6ea01eb0d0e1e7fc2162461a125d822 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-08-17  Kimit Yada  <kimitto@gmail.com>  (tiny change)
+
+       * emacs-lisp/copyright.el (copyright-update-year):
+       Fix bug: Handle nil copyright-limit.
+
 2007-08-17  Jay Belanger  <jay.p.belanger@gmail.com>
 
        * calc/calc-units.el (math-standard-units): Give exact

diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el
index 5fdebea68f39f6af39d2abf1b325420074a1c051..84f96b12ad5ec4497d777d5bd321279ade51ae30 100644 (file)
--- a/lisp/emacs-lisp/copyright.el
+++ b/lisp/emacs-lisp/copyright.el
@@ -96,7 +96,9 @@ When this is `function', only ask when called non-interactively."
          (re-search-forward (concat "\\(" copyright-regexp
                                     "\\)\\([ \t]*\n\\)?.*\\(?:"
                                     copyright-names-regexp "\\)")
-                            (if copyright-limit (+ (point) copyright-limit))
+                            (if copyright-limit
+                                 (+ (point) copyright-limit)
+                               t)
                             t)
        ;; In case the regexp is rejected.  This is useful because
        ;; copyright-update is typically called from before-save-hook where