Mercurial > emacs
comparison lisp/delsel.el @ 91040:14c4a6aac623
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 866-879)
- Merge multi-tty branch
- Update from CVS
- Merge from emacs--rel--22
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-257
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 11 Oct 2007 16:14:00 +0000 |
| parents | b83d0dadb2a7 6ae29c2dfff0 |
| children | 880960b70474 |
comparison
equal
deleted
inserted
replaced
| 91039:eefadc1e1d5e | 91040:14c4a6aac623 |
|---|---|
| 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)))) |