Function: rectangle--insert-for-yank

rectangle--insert-for-yank is a byte-compiled function defined in rect.el.gz.

Signature

(rectangle--insert-for-yank STRS)

Source Code

;; Defined in /usr/src/emacs/lisp/rect.el.gz
(defun rectangle--insert-for-yank (strs)
  (push (point) buffer-undo-list)
  (let ((undo-at-start buffer-undo-list))
    (insert-rectangle strs)
    (setq yank-undo-function
          (lambda (_start _end)
            (undo-start)
            (setcar undo-at-start nil)  ;Turn it into a boundary.
            (while (not (eq pending-undo-list (cdr undo-at-start)))
              (undo-more 1))))))