Mercurial > emacs
changeset 4906:e3f09fe7f08f
(mouse-drag-region): Set this-command to mouse-set-point
if not setting the mark.
(mouse-save-then-kill): Consider mark-active only in transient mark md.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 03 Nov 1993 00:50:06 +0000 |
| parents | 710950ca1b49 |
| children | fca72ee8bf94 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Tue Nov 02 18:55:40 1993 +0000 +++ b/lisp/mouse.el Wed Nov 03 00:50:06 1993 +0000 @@ -249,7 +249,8 @@ (push-mark (overlay-start mouse-drag-overlay) t t) (goto-char (overlay-end mouse-drag-overlay)) (copy-region-as-kill (point) (mark t))) - (goto-char (overlay-end mouse-drag-overlay))) + (goto-char (overlay-end mouse-drag-overlay)) + (setq this-command 'mouse-set-point)) (if (fboundp fun) (funcall fun event))))) (delete-overlay mouse-drag-overlay)))) @@ -447,9 +448,8 @@ ;; mouse-save-then-kill, delete the text from the buffer. (mouse-save-then-kill-delete-region) (if (or (eq last-command 'mouse-save-then-kill) - mark-active + (and mark-active transient-mark-mode) (and (eq last-command 'mouse-drag-region) - (mark t) (or mark-even-if-inactive (not transient-mark-mode)))) ;; We have a selection or suitable region, so adjust it.