Function: cua--copy-rectangle-as-kill

cua--copy-rectangle-as-kill is a byte-compiled function defined in cua-rect.el.gz.

Signature

(cua--copy-rectangle-as-kill &optional RING)

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/cua-rect.el.gz
(defun cua--copy-rectangle-as-kill (&optional ring)
  (if cua--register
      (set-register cua--register (cua--extract-rectangle))
    (setq killed-rectangle (cua--extract-rectangle))
    (setq cua--last-killed-rectangle (cons (and kill-ring (car kill-ring)) killed-rectangle))
    (if ring
        (kill-new (mapconcat
                   (lambda (row) (concat row "\n"))
                   killed-rectangle "")))))