diff options
| author | Stefan Monnier <[email protected]> | 2004-05-28 21:06:26 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2004-05-28 21:06:26 +0000 |
| commit | a5809dbd7f8b54c78219bf96feef190d24765925 (patch) | |
| tree | 8c80baa184b7fe8108f906a9d7ba47e6215fabf6 /lisp/mouse.el | |
| parent | 575c3bca4c340b8e6f23f11273e19c279bf8c022 (diff) | |
(mouse-set-region-1): Use temporary transient-mark-mode
after the user marked text with the mouse.
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 76098f45f1..621b517e2f 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -624,6 +624,8 @@ This should be bound to a mouse drag event." (mouse-set-region-1))) (defun mouse-set-region-1 () + ;; Set transient-mark-mode for a little while. + (setq transient-mark-mode (or transient-mark-mode 'lambda)) (setq mouse-last-region-beg (region-beginning)) (setq mouse-last-region-end (region-end)) (setq mouse-last-region-tick (buffer-modified-tick))) |