Function: ses-vector-insert

ses-vector-insert is a byte-compiled function defined in ses.el.gz.

Signature

(ses-vector-insert ARRAY IDX NEW)

Documentation

Create a new vector which is one larger than ARRAY and has NEW inserted before element IDX.

Source Code

;; Defined in /usr/src/emacs/lisp/ses.el.gz
;;----------------------------------------------------------------------------
;; Utility functions
;;----------------------------------------------------------------------------

(defun ses-vector-insert (array idx new)
  "Create a new vector which is one larger than ARRAY and has NEW inserted
before element IDX."
  (let* ((len    (length array))
	 (result (make-vector (1+ len) new)))
    (dotimes (x len)
      (aset result
	    (if (< x idx) x (1+ x))
	    (aref array x)))
    result))