From 76a63a6ee015f83c93f18479232b8cf220f64464 Mon Sep 17 00:00:00 2001
From: "Kim F. Storm" <storm@cua.dk>
Date: Fri, 6 Oct 2006 22:54:36 +0000
Subject: [PATCH] (ido-file-extension-aux): Fix comparison.

---
 lisp/ido.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/lisp/ido.el b/lisp/ido.el
index d4ed85ea105..ff222b2958c 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -3084,12 +3084,14 @@ for first matching file."
   (let ((oa (ido-file-extension-order a n))
 	(ob (ido-file-extension-order b n)))
     (cond
-     ((= oa ob)
-      lessp)
      ((and oa ob)
-      (if lessp
-	  (> oa ob)
-	(< oa ob)))
+      (cond
+       ((= oa ob)
+	lessp)
+       (lessp
+	(> oa ob))
+       (t
+	(< oa ob))))
      (oa
       (not lessp))
      (ob
-- 
2.39.2