(epg-config--compare-version): Simplified.
authorueno <ueno>
Mon, 4 Sep 2006 03:12:34 +0000 (03:12 +0000)
committerueno <ueno>
Mon, 4 Sep 2006 03:12:34 +0000 (03:12 +0000)
epg-config.el

index c3b31e3..51a7460 100644 (file)
 
 (defun epg-config--compare-version (v1 v2)
   (while (and v1 v2 (= (car v1) (car v2)))
-    (setq v1 (cdr v1)
-         v2 (cdr v2)))
-  (setq v1 (or (car v1) 0)
-       v2 (or (car v2) 0))
-  (if (> v1 v2) 1 (if (= v1 v2) 0 -1)))
+    (setq v1 (cdr v1) v2 (cdr v2)))
+  (- (or (car v1) 0) (or (car v2) 0)))
 
 ;;;###autoload
 (defun epg-check-configuration (config &optional minimum-version)