diff options
| author | Richard M. Stallman | 2004-11-04 10:02:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-11-04 10:02:38 +0000 |
| commit | 9e6856a7a4c07f3cb009768554e81624615c570c (patch) | |
| tree | 76bc9b09fcad5c84f7d77aec2e8e6fde72bcf1f5 | |
| parent | 977bbd4d38382bd0c9322b8d6f01216d3753d8a3 (diff) | |
| download | emacs-9e6856a7a4c07f3cb009768554e81624615c570c.tar.gz emacs-9e6856a7a4c07f3cb009768554e81624615c570c.zip | |
(mouse-show-mark): Get positions to delete from mark
and point, not from mouse-drag-overlay.
| -rw-r--r-- | lisp/mouse.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 2a467aa8069..865b5e96297 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -1068,8 +1068,7 @@ If MODE is 2 then do the same for lines." | |||
| 1068 | (unless ignore | 1068 | (unless ignore |
| 1069 | ;; For certain special keys, delete the region. | 1069 | ;; For certain special keys, delete the region. |
| 1070 | (if (member key mouse-region-delete-keys) | 1070 | (if (member key mouse-region-delete-keys) |
| 1071 | (delete-region (overlay-start mouse-drag-overlay) | 1071 | (delete-region (mark t) (point)) |
| 1072 | (overlay-end mouse-drag-overlay)) | ||
| 1073 | ;; Otherwise, unread the key so it gets executed normally. | 1072 | ;; Otherwise, unread the key so it gets executed normally. |
| 1074 | (setq unread-command-events | 1073 | (setq unread-command-events |
| 1075 | (nconc events unread-command-events)))) | 1074 | (nconc events unread-command-events)))) |