diff options
| author | Juri Linkov | 2007-10-06 22:20:41 +0000 |
|---|---|---|
| committer | Juri Linkov | 2007-10-06 22:20:41 +0000 |
| commit | 3220ac7f5e6bde4e38c5eb8a91c6366b1abbd86e (patch) | |
| tree | 66eb1560be6231fa5bfa2c7c77d989af233e38ed /lisp/emulation | |
| parent | 614a773aa3754defa69dec18cd590f77b94c079e (diff) | |
| download | emacs-3220ac7f5e6bde4e38c5eb8a91c6366b1abbd86e.tar.gz emacs-3220ac7f5e6bde4e38c5eb8a91c6366b1abbd86e.zip | |
(cua-paste): Check if mouse-region-match is fbound
to not fail on mouseless tty.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/cua-base.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index 5e18953752a..fbb39ee66d3 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el | |||
| @@ -911,6 +911,7 @@ If global mark is active, copy from register or one character." | |||
| 911 | ;; That would make yank a no-op. | 911 | ;; That would make yank a no-op. |
| 912 | (if (and (string= (filter-buffer-substring (point) (mark)) | 912 | (if (and (string= (filter-buffer-substring (point) (mark)) |
| 913 | (car kill-ring)) | 913 | (car kill-ring)) |
| 914 | (fboundp 'mouse-region-match) | ||
| 914 | (mouse-region-match)) | 915 | (mouse-region-match)) |
| 915 | (current-kill 1)) | 916 | (current-kill 1)) |
| 916 | (cua-delete-region))) | 917 | (cua-delete-region))) |