From bac2f6bcd178bb2dd6a7ac66428450d866238618 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 9 Apr 2008 04:00:28 +0000 Subject: [PATCH] (change-log-next-buffer): Handle the case where version< signals an error. --- lisp/ChangeLog | 3 +++ lisp/add-log.el | 7 +++++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a2f7f47a4b5..b1f42ad3c28 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2008-04-09 Stefan Monnier + * 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 d73a83820a4..78077e220bd 100644 --- 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 -- 2.39.2