# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1160175276 0
# Node ID acb35bee282849b979f25b73a61330b688c0c2fc
# Parent  0190a09474b5687515de4460b3fd707a8f43129e
(ido-file-extension-aux): Fix comparison.

diff -r 0190a09474b5 -r acb35bee2828 lisp/ido.el
--- a/lisp/ido.el	Fri Oct 06 22:54:18 2006 +0000
+++ b/lisp/ido.el	Fri Oct 06 22:54:36 2006 +0000
@@ -3084,12 +3084,14 @@
   (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