X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/ac4ae7cd064e82a554a00738042645a91c334579..47a5be0d6acb3d4d786162f83ae1443fd5b054ae:/el/dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index e6b00c0..c0ab9a7 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -418,6 +418,21 @@ in REST."
 	      (insert "\nNP: ")
 	      (insert-file-contents np-file)))))
 
+(defun mdw-version-< (ver-a ver-b)
+  "Answer whether VER-A is strictly earlier than VER-B.
+VER-A and VER-B are version numbers, which are strings containing digit
+sequences separated by `.'."
+  (let* ((la (mapcar (lambda (x) (car (read-from-string x)))
+		     (split-string ver-a "\\.")))
+	 (lb (mapcar (lambda (x) (car (read-from-string x)))
+		     (split-string ver-b "\\."))))
+    (catch 'done
+      (while t
+	(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))))))))
+
 (defun mdw-check-autorevert ()
   "Sets global-auto-revert-ignore-buffer appropriately for this buffer.
 This takes into consideration whether it's been found using