diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2010-07-17 16:21:51 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2010-07-17 16:21:51 -0400 |
| commit | 91023c68af851d22bf72d22538276a7f23e1970c (patch) | |
| tree | 6b95e8432b1c3ea82ccdb4c18c78e4d4e9362c4b /lisp/mouse.el | |
| parent | 3b8eff32333e497a65c509ef31cfc925ee92c1ff (diff) | |
Revert 2010-07-14 change to deactivate mark; minor cleanups.
* mouse.el (mouse-drag-track): Use select-active-region.
* simple.el (select-active-region): New function.
(push-mark-command, set-mark, activate-mark)
(handle-shift-selection): Use it.
(deactivate-mark): Don't check for size of region.
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 39c6993d97..87cca4044b 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -1027,9 +1027,7 @@ DO-MOUSE-DRAG-REGION-POST-PROCESS should only be used by ;; For `select-active-regions' non-nil, ensure that ;; further alterations of the region (e.g. via ;; shift-selection) continue to update PRIMARY. - (and select-active-regions - (display-selections-p) - (x-set-selection 'PRIMARY (current-buffer)))) + (select-active-region)) ;; If point hasn't moved, run the binding of the ;; terminating up-event. |