Function: format-reorder

format-reorder is a byte-compiled function defined in format.el.gz.

Signature

(format-reorder ITEMS ORDER)

Documentation

Arrange ITEMS to follow partial ORDER.

Elements of ITEMS equal to elements of ORDER will be rearranged to follow the ORDER. Unmatched items will go last.

Source Code

;; Defined in /usr/src/emacs/lisp/format.el.gz
(defun format-reorder (items order)
  "Arrange ITEMS to follow partial ORDER.
Elements of ITEMS equal to elements of ORDER will be rearranged
to follow the ORDER.  Unmatched items will go last."
  (if order
      (let ((item (member (car order) items)))
	(if item
	    (cons (car item)
		  (format-reorder (format-delq-cons item items)
			   (cdr order)))
	  (format-reorder items (cdr order))))
    items))