Mercurial > emacs
changeset 93890:5bd4e09f29d0
(change-log-next-buffer): Handle the case where version< signals an error.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 09 Apr 2008 04:00:28 +0000 |
| parents | a22fbbd18c59 |
| children | c3a6b4a9a15b |
| files | lisp/ChangeLog lisp/add-log.el |
| diffstat | 2 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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