X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/51fb1b09ab7744f643aded616337f7f35ab88258..f64c5a1a842e1998e814bfa931f21a376e905485:/el/dot-emacs.el?ds=sidebyside

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.