Function: picture-insert-rectangle

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

Signature

(picture-insert-rectangle RECTANGLE &optional INSERTP)

Documentation

Overlay RECTANGLE with upper left corner at point.

Optional argument INSERTP, if non-nil causes RECTANGLE to be inserted. Leave the region surrounding the rectangle.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/picture.el.gz
(defun picture-insert-rectangle (rectangle &optional insertp)
  "Overlay RECTANGLE with upper left corner at point.
Optional argument INSERTP, if non-nil causes RECTANGLE to be inserted.
Leave the region surrounding the rectangle."
  (let ((indent-tabs-mode nil))
    (if (not insertp)
	(save-excursion
	  (delete-rectangle (point)
			    (progn
			      (picture-forward-column (length (car rectangle)))
			      (picture-move-down (1- (length rectangle)))
			      (point)))))
    (push-mark)
    (insert-rectangle rectangle)))