Mercurial > emacs
changeset 66669:550c8e306cb5
Fix special handling of DEL after dragging a region:
(mouse-drag-region-1): Treat mouse-set-region like mouse-set-point.
(mouse-region-delete-keys): Add [backspace].
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 03 Nov 2005 21:37:21 +0000 |
| parents | 857eb702a3f1 |
| children | d5afffbc0c96 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Thu Nov 03 21:34:54 2005 +0000 +++ b/lisp/mouse.el Thu Nov 03 21:37:21 2005 +0000 @@ -961,7 +961,7 @@ (let* ((fun (key-binding (vector (car event)))) (do-multi-click (and (> (event-click-count event) 0) (functionp fun) - (not (eq fun 'mouse-set-point))))) + (not (memq fun '(mouse-set-point mouse-set-region)))))) ;; Run the binding of the terminating up-event, if possible. (if (and (not (= (overlay-start mouse-drag-overlay) (overlay-end mouse-drag-overlay))) @@ -1075,7 +1075,7 @@ (forward-char 1)))))) (defun mouse-start-end (start end mode) -"Return a list of region bounds based on START and END according to MODE. + "Return a list of region bounds based on START and END according to MODE. If MODE is 0 then set point to (min START END), mark to (max START END). If MODE is 1 then set point to start of word at (min START END), mark to end of word at (max START END). @@ -1181,8 +1181,10 @@ ;; Momentarily show where the mark is, if highlighting doesn't show it. -(defvar mouse-region-delete-keys '([delete] [deletechar]) - "List of keys which shall cause the mouse region to be deleted.") +(defcustom mouse-region-delete-keys '([delete] [deletechar] [backspace]) + "List of keys that should cause the mouse region to be deleted." + :group 'mouse + :type '(repeat key-sequence)) (defun mouse-show-mark () (let ((inhibit-quit t)