Function: check-declare-sort

check-declare-sort is a byte-compiled function defined in check-declare.el.gz.

Signature

(check-declare-sort ALIST)

Documentation

Sort list ALIST with elements FILE (FNFILE ...).

Return list with elements FNFILE (FILE ...).

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/check-declare.el.gz
(defun check-declare-sort (alist)
  "Sort list ALIST with elements FILE (FNFILE ...).
Return list with elements FNFILE (FILE ...)."
  (let (file fnfile rest sort a)
    (dolist (e alist)
      (setq file (car e))
      (dolist (f (cdr e))
        (setq fnfile (car f)
              rest (cdr f))
        (if (setq a (assoc fnfile sort))
            (setcdr a (append (cdr a) (list (cons file rest))))
          (setq sort (cons (list fnfile (cons file rest)) sort)))))
    sort))