Function: expand-list-to-markers

expand-list-to-markers is a byte-compiled function defined in expand.el.gz.

Signature

(expand-list-to-markers L)

Documentation

Transform a list of markers in reverse order into a vector in the correct order.

Source Code

;; Defined in /usr/src/emacs/lisp/expand.el.gz
;; support functions to add marks to jump from outside function

(defun expand-list-to-markers (l)
  "Transform a list of markers in reverse order into a vector in the correct order."
  (let* ((len (1- (length l)))
	 (loop len)
	 (v (make-vector (+ len 1) nil)))
    (while (>= loop 0)
      (aset v loop (if (markerp (car l)) (car l) (copy-marker (car l))))
      (setq l (cdr l)
	    loop (1- loop)))
    v))