(change-log-next-buffer): Handle the case where version< signals an error.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a2f7f47a4b52741f4e7da9a776ee381668d4c31c..b1f42ad3c2898266898841924e1c617fc64bc31c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-04-09  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * add-log.el (change-log-next-buffer): Handle the case where version<
+       signals an error.
+
        * mouse.el (mouse-menu-major-mode-map): New fun extracted from
        mouse-major-mode-menu.
        (mouse-menu-bar-map): New fun extracted from mouse-popup-menubar.

diff --git a/lisp/add-log.el b/lisp/add-log.el
index d73a83820a4da4c685ef35ffaeef30e11d548741..78077e220bd5bbf699780892f91521ad81a4235f 100644 (file)
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -820,8 +820,11 @@ file were isearch was started."
         (files (cons name (sort (file-expand-wildcards
                                  (concat name "[-.][0-9]*"))
                                 (lambda (a b)
-                                  (version< (substring b (length name))
-                                            (substring a (length name)))))))
+                                   ;; The file's extension may not have a valid
+                                   ;; version form (e.g. VC backup revisions).
+                                   (ignore-errors
+                                     (version< (substring b (length name))
+                                               (substring a (length name))))))))
         (files (if isearch-forward files (reverse files))))
     (find-file-noselect
      (if wrap