diff options
| author | Juri Linkov | 2007-10-06 22:19:12 +0000 |
|---|---|---|
| committer | Juri Linkov | 2007-10-06 22:19:12 +0000 |
| commit | 614a773aa3754defa69dec18cd590f77b94c079e (patch) | |
| tree | 3f53a11689f8a71b065baa2b3062722547179a90 | |
| parent | 28681e350ccd92660d2b1be048e49e3e1d049e5d (diff) | |
| download | emacs-614a773aa3754defa69dec18cd590f77b94c079e.tar.gz emacs-614a773aa3754defa69dec18cd590f77b94c079e.zip | |
(delete-selection-pre-hook): Check if mouse-region-match is fbound
to not fail on mouseless tty.
| -rw-r--r-- | lisp/delsel.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/delsel.el b/lisp/delsel.el index b4ae7965a3f..82593985650 100644 --- a/lisp/delsel.el +++ b/lisp/delsel.el | |||
| @@ -93,6 +93,7 @@ any selection." | |||
| 93 | ;; That would make yank a no-op. | 93 | ;; That would make yank a no-op. |
| 94 | (when (and (string= (buffer-substring-no-properties (point) (mark)) | 94 | (when (and (string= (buffer-substring-no-properties (point) (mark)) |
| 95 | (car kill-ring)) | 95 | (car kill-ring)) |
| 96 | (fboundp 'mouse-region-match) | ||
| 96 | (mouse-region-match)) | 97 | (mouse-region-match)) |
| 97 | (current-kill 1)) | 98 | (current-kill 1)) |
| 98 | (delete-active-region)) | 99 | (delete-active-region)) |