Function: ido-file-extension-lessp

ido-file-extension-lessp is a byte-compiled function defined in ido.el.gz.

Signature

(ido-file-extension-lessp A B)

Documentation

Compare file names according to ido-file-extensions-order list.

Source Code

;; Defined in /usr/src/emacs/lisp/ido.el.gz
(defun ido-file-extension-lessp (a b)
  "Compare file names according to ido-file-extensions-order list."
  (when ido-case-fold
    (setq a (downcase a)
          b (downcase b)))
  (let ((n (compare-strings a 0 nil b 0 nil nil))
	lessp p)
    (if (eq n t)
	nil
      (if (< n 0)
	  (setq n (1- (- n))
		p a a b b p
		lessp t)
	(setq n (1- n)))
      (cond
       ((= n 0)
	lessp)
       ((= (aref a n) ?.)
	(ido-file-extension-aux a b n lessp))
       (t
	(while (and (> n 2) (/= (aref a n) ?.))
	  (setq n (1- n)))
	(if (> n 1)
	    (ido-file-extension-aux a b n lessp)
	  lessp))))))