Function: rtree-make-1

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

Signature

(rtree-make-1 RANGE LENGTH)

Source Code

;; Defined in /usr/src/emacs/lisp/rtree.el.gz
(defun rtree-make-1 (range length)
  (let ((mid (/ length 2))
	(node (rtree-make-node)))
    (when (> mid 0)
      (rtree-set-left node (rtree-make-1 range mid)))
    (rtree-set-range node (rtree-normalize-range (cadr range)))
    (setcdr range (cddr range))
    (when (> (- length mid 1) 0)
      (rtree-set-right node (rtree-make-1 range (- length mid 1))))
    node))