# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1191709152 0
# Node ID 6ae29c2dfff0ffc230c912faa342f577692ca8a8
# Parent  c27859b68484e0a2997b14d70a43520d17d5b418
(delete-selection-pre-hook): Check if mouse-region-match is fbound
to not fail on mouseless tty.

diff -r c27859b68484 -r 6ae29c2dfff0 lisp/delsel.el
--- a/lisp/delsel.el	Sat Oct 06 22:17:49 2007 +0000
+++ b/lisp/delsel.el	Sat Oct 06 22:19:12 2007 +0000
@@ -93,6 +93,7 @@
 		 ;; That would make yank a no-op.
 		 (when (and (string= (buffer-substring-no-properties (point) (mark))
 				     (car kill-ring))
+			    (fboundp 'mouse-region-match)
 			    (mouse-region-match))
 		   (current-kill 1))
 		 (delete-active-region))