Function: rectangle--place-cursor

rectangle--place-cursor is a byte-compiled function defined in rect.el.gz.

Signature

(rectangle--place-cursor LEFTCOL LEFT STR)

Source Code

;; Defined in /usr/src/emacs/lisp/rect.el.gz
(defun rectangle--place-cursor (leftcol left str)
  (let ((pc (window-parameter nil 'rectangle--point-crutches)))
    (if (and (eq left (car pc)) (eq leftcol (cdr pc)))
        (put-text-property 0 1 'cursor 1 str))))