comparison lisp/emulation/cua-base.el @ 85074:16efb39cdb2e

(cua-paste): Check if mouse-region-match is fbound to not fail on mouseless tty.

85073:6ae29c2dfff0

	    ;; head of the kill-ring that really comes from the
	    ;; currently active region we are going to delete.
	    ;; That would make yank a no-op.
	    (if (and (string= (filter-buffer-substring (point) (mark))
			      (car kill-ring))
		     (mouse-region-match))
		(current-kill 1))
	    (cua-delete-region)))
      (cond
       (regtxt

85074:16efb39cdb2e

	    ;; head of the kill-ring that really comes from the
	    ;; currently active region we are going to delete.
	    ;; That would make yank a no-op.
	    (if (and (string= (filter-buffer-substring (point) (mark))
			      (car kill-ring))
		     (fboundp 'mouse-region-match)
		     (mouse-region-match))
		(current-kill 1))
	    (cua-delete-region)))
      (cond
       (regtxt