el/dot-emacs.el (mdw-version-<): Fix stupid infinite-loop bug.

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 59c85364063770bdd4c47cd86f393c168774afcd..8f5b53c5d9c2336cbb91df44579bf872c78691fd 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -721,7 +721,8 @@ (defun mdw-version-< (ver-a ver-b)
        (cond ((null la) (throw 'done lb))
              ((null lb) (throw 'done nil))
              ((< (car la) (car lb)) (throw 'done t))
-             ((= (car la) (car lb)) (setq la (cdr la) lb (cdr lb))))))))
+             ((= (car la) (car lb)) (setq la (cdr la) lb (cdr lb)))
+             (t (throw 'done nil)))))))
 
 (defun mdw-check-autorevert ()
   "Sets global-auto-revert-ignore-buffer appropriately for this buffer.