Function: table--insert-rectangle

table--insert-rectangle is a byte-compiled function defined in table.el.gz.

Signature

(table--insert-rectangle RECTANGLE)

Documentation

Insert text of RECTANGLE with upper left corner at point.

Same as insert-rectangle except that mark operation is eliminated.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/table.el.gz
(defun table--insert-rectangle (rectangle)
  "Insert text of RECTANGLE with upper left corner at point.
Same as `insert-rectangle' except that mark operation is eliminated."
  (let ((lines rectangle)
	(insertcolumn (current-column))
	(first t))
    (while lines
      (or first
	  (progn
	    (forward-line 1)
	    (or (bolp) (insert ?\n))
	    (move-to-column insertcolumn t)))
      (setq first nil)
      (insert (car lines))
      (setq lines (cdr lines)))))