Mercurial > emacs
comparison lisp/delsel.el @ 85073:6ae29c2dfff0
(delete-selection-pre-hook): 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:12 +0000 |
| parents | 9c9e50cbdf1e |
| children | cd42bdedadb3 14c4a6aac623 |
comparison
equal
deleted
inserted
replaced
| 85072:c27859b68484 | 85073:6ae29c2dfff0 |
|---|---|
| 91 ;; head of the kill-ring that really comes from the | 91 ;; head of the kill-ring that really comes from the |
| 92 ;; currently active region we are going to delete. | 92 ;; currently active region we are going to delete. |
| 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)) |
| 99 ((eq type 'supersede) | 100 ((eq type 'supersede) |
| 100 (let ((empty-region (= (point) (mark)))) | 101 (let ((empty-region (= (point) (mark)))) |