From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 2 Jul 2017 22:32:33 +0000 (+0100)
Subject: el/dot-emacs.el (mdw-version-<): Fix stupid infinite-loop bug.
X-Git-Url: https://git.distorted.org.uk/~mdw/profile/commitdiff_plain/f64c5a1a842e1998e814bfa931f21a376e905485

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

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 59c8536..8f5b53c 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -721,7 +721,8 @@ sequences separated by `.'."
 	(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.