From: ueno <ueno>
Date: Mon, 4 Sep 2006 03:12:34 +0000 (+0000)
Subject: (epg-config--compare-version): Simplified.
X-Git-Tag: epg-0_0_5~13
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d76c3d33d8cdf798bada78a05ff17acfa65e3a68;p=elisp%2Fepg.git

(epg-config--compare-version): Simplified.
---

diff --git a/epg-config.el b/epg-config.el
index c3b31e3..51a7460 100644
--- a/epg-config.el
+++ b/epg-config.el
@@ -78,11 +78,8 @@
 
 (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)