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

(cua-paste): Check if mouse-region-match is fbound to not fail on mouseless tty.
author Juri Linkov <juri@jurta.org>
date Sat, 06 Oct 2007 22:19:49 +0000
parents 27d11c1d4e46
children 27ff4954e2a0 bdb3fe0ba9fa
line wrap: on
line diff
--- 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)))