# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1191709189 0
# Node ID 16efb39cdb2e679e7233c32714c0767e5bcd21f8
# Parent  6ae29c2dfff0ffc230c912faa342f577692ca8a8
(cua-paste): Check if mouse-region-match is fbound
to not fail on mouseless tty.

diff -r 6ae29c2dfff0 -r 16efb39cdb2e lisp/emulation/cua-base.el
--- a/lisp/emulation/cua-base.el	Sat Oct 06 22:19:12 2007 +0000
+++ b/lisp/emulation/cua-base.el	Sat Oct 06 22:19:49 2007 +0000
@@ -911,6 +911,7 @@
 	    ;; 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)))