From f64c5a1a842e1998e814bfa931f21a376e905485 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sun, 2 Jul 2017 23:32:33 +0100 Subject: [PATCH] el/dot-emacs.el (mdw-version-<): Fix stupid infinite-loop bug. --- el/dot-emacs.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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. -- 2.11.0