Function: rtree-extract

rtree-extract is a byte-compiled function defined in rtree.el.gz.

Signature

(rtree-extract TREE)

Documentation

Convert TREE to range form.

Source Code

;; Defined in /usr/src/emacs/lisp/rtree.el.gz
(defun rtree-extract (tree)
  "Convert TREE to range form."
  (let (stack result)
    (while (or stack
	       tree)
      (if tree
	  (progn
	    (push tree stack)
	    (setq tree (rtree-right tree)))
	(setq tree (pop stack))
	(push (if (= (rtree-low tree)
		     (rtree-high tree))
		  (rtree-low tree)
		(rtree-range tree))
	      result)
	(setq tree (rtree-left tree))))
    result))