(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)