Function: picture-snarf-rectangle

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

Signature

(picture-snarf-rectangle START END &optional KILLP)

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/picture.el.gz
(defun picture-snarf-rectangle (start end &optional killp)
  (let ((column (current-column))
	(indent-tabs-mode nil))
    (prog1 (save-excursion
             (if killp
                 (delete-extract-rectangle start end)
               (prog1 (extract-rectangle start end)
                      (clear-rectangle start end))))
	   (move-to-column column t))))