[Emacs-diffs] Changes to emacs/lisp/ido.el,v

[Kim F. Storm]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kim F. Storm <kfstorm>  06/10/06 22:54:36

Index: ido.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ido.el,v
retrieving revision 1.107
retrieving revision 1.108
diff -u -b -r1.107 -r1.108
--- ido.el      6 Oct 2006 12:49:12 -0000       1.107
+++ ido.el      6 Oct 2006 22:54:36 -0000       1.108
@@ -3084,12 +3084,14 @@
   (let ((oa (ido-file-extension-order a n))
        (ob (ido-file-extension-order b n)))
     (cond
+     ((and oa ob)
+      (cond
      ((= oa ob)
       lessp)
-     ((and oa ob)
-      (if lessp
-         (> oa ob)
-       (< oa ob)))
+       (lessp
+       (> oa ob))
+       (t
+       (< oa ob))))
      (oa
       (not lessp))
      (ob