1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00

(delete-selection-pre-hook): Check if mouse-region-match is fbound

to not fail on mouseless tty.
This commit is contained in:
Juri Linkov 2007-10-06 22:19:12 +00:00
parent 28681e350c
commit 614a773aa3

View File

@ -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))