(ido-file-extension-aux): Fix comparison.

1 files 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