From d76c3d33d8cdf798bada78a05ff17acfa65e3a68 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 4 Sep 2006 03:12:34 +0000 Subject: [PATCH] (epg-config--compare-version): Simplified. --- epg-config.el | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) 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) -- 1.7.10.4