comparison lisp/ido.el @ 73266:acb35bee2828

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

73265:0190a09474b5

(defun ido-file-extension-aux (a b n lessp)
  (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)))
     (oa
      (not lessp))
     (ob
      lessp)
     (t

73266:acb35bee2828

(defun ido-file-extension-aux (a b n lessp)
  (let ((oa (ido-file-extension-order a n))
	(ob (ido-file-extension-order b n)))
    (cond
     ((and oa ob)
      (cond
       ((= oa ob)
	lessp)
       (lessp
	(> oa ob))
       (t
	(< oa ob))))
     (oa
      (not lessp))
     (ob
      lessp)
     (t