diff options
author | Richard M. Stallman <rms@gnu.org> | 1993-11-03 00:50:06 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1993-11-03 00:50:06 +0000 |
commit | 713a20d69e0a6f4b006a7e3cb7e26dac2344224e (patch) | |
tree | 62125d394f6079a08c731c4b45e2712f01434158 /lisp | |
parent | ab068e472c9554f019f6da1e14b580ebd53f0a9c (diff) | |
download | emacs-713a20d69e0a6f4b006a7e3cb7e26dac2344224e.tar.gz |
(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.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/mouse.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 90175551a63..7bdcae71c8d 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -249,7 +249,8 @@ release the mouse button. Otherwise, it does not." (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 @@ If you do this twice in the same position, the selection is killed." ;; 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. |