Lines Matching defs:copy
21 ;; You should have received a copy of the GNU General Public License
87 (copy-sequence cua--rectangle) t s e)
93 (setq cua--restored-rectangle (copy-sequence rect))
459 "Expand rectangle to mouse click position and copy rectangle.
470 (let ((cua-keep-region-after-copy t))
471 (cua-copy-rectangle arg)
637 (let ((copy t) (bs 0) (as 0) row)
643 copy nil)
651 (setq row (if (and copy (> e s))
707 (defun cua--copy-rectangle-as-kill (&optional ring)
955 (defun cua-copy-rectangle (arg)
958 (cua--copy-rectangle-as-kill arg)
959 (if cua-keep-region-after-copy
966 (cua-copy-rectangle arg)
969 (cua--copy-rectangle-as-kill arg)
976 (if cua-delete-copy-to-register-0
1064 (defun cua-copy-rectangle-as-text (&optional arg delete)
1070 (cua--copy-rectangle-to-global-mark t))
1086 (cua-copy-rectangle-as-text arg (not buffer-read-only)))
1423 (define-key cua--rectangle-keymap [remap copy-region-as-kill] 'cua-copy-rectangle)
1424 (define-key cua--rectangle-keymap [remap kill-ring-save] 'cua-copy-rectangle)
1477 (cua--rect-M/H-key ?m 'cua-copy-rectangle-as-text)