From 614a773aa3754defa69dec18cd590f77b94c079e Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 6 Oct 2007 22:19:12 +0000 Subject: (delete-selection-pre-hook): Check if mouse-region-match is fbound to not fail on mouseless tty. --- lisp/delsel.el | 1 + 1 file changed, 1 insertion(+) (limited to 'lisp/delsel.el') diff --git a/lisp/delsel.el b/lisp/delsel.el index b4ae7965a3..8259398565 100644 --- a/lisp/delsel.el +++ b/lisp/delsel.el @@ -93,6 +93,7 @@ any selection." ;; 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)) -- cgit v1.2.3