# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1207713628 0
# Node ID 5bd4e09f29d05890d2f2c6897b04dd53870cd692
# Parent  a22fbbd18c5929af9ed917565845d040bca781ab
(change-log-next-buffer): Handle the case where version< signals an error.

diff -r a22fbbd18c59 -r 5bd4e09f29d0 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Apr 09 03:53:48 2008 +0000
+++ b/lisp/ChangeLog	Wed Apr 09 04:00:28 2008 +0000
@@ -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 -r a22fbbd18c59 -r 5bd4e09f29d0 lisp/add-log.el
--- a/lisp/add-log.el	Wed Apr 09 03:53:48 2008 +0000
+++ b/lisp/add-log.el	Wed Apr 09 04:00:28 2008 +0000
@@ -820,8 +820,11 @@
 	 (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