mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(mouse-show-mark): Get positions to delete from mark

Browse Source 
and point, not from mouse-drag-overlay.
This commit is contained in:
Richard M. Stallman 2004-11-04 10:02:38 +00:00
parent 977bbd4d38
commit 9e6856a7a4
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/mouse.el
View File

@ -1068,8 +1068,7 @@ If MODE is 2 then do the same for lines."
(unless ignore
;; For certain special keys, delete the region.
(if (member key mouse-region-delete-keys)
(delete-region (overlay-start mouse-drag-overlay)
(overlay-end mouse-drag-overlay))
(delete-region (mark t) (point))
;; Otherwise, unread the key so it gets executed normally.
(setq unread-command-events
(nconc events unread-command-events))))