Mercurial > emacs
changeset 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 | 6ae29c2dfff0 |
| children | 2f9541e202f0 |
| files | lisp/emulation/cua-base.el |
| diffstat | 1 files changed, 1 insertions(+), 0 deletions(-) [+] |
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)))