diff options
| author | Stefan Monnier | 2004-05-28 21:06:26 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-05-28 21:06:26 +0000 |
| commit | a5809dbd7f8b54c78219bf96feef190d24765925 (patch) | |
| tree | 8c80baa184b7fe8108f906a9d7ba47e6215fabf6 /lisp | |
| parent | 575c3bca4c340b8e6f23f11273e19c279bf8c022 (diff) | |
| download | emacs-a5809dbd7f8b54c78219bf96feef190d24765925.tar.gz emacs-a5809dbd7f8b54c78219bf96feef190d24765925.zip | |
(mouse-set-region-1): Use temporary transient-mark-mode
after the user marked text with the mouse.
Diffstat (limited to 'lisp')
| -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 76098f45f1a..621b517e2fe 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -624,6 +624,8 @@ This should be bound to a mouse drag event." | |||
| 624 | (mouse-set-region-1))) | 624 | (mouse-set-region-1))) |
| 625 | 625 | ||
| 626 | (defun mouse-set-region-1 () | 626 | (defun mouse-set-region-1 () |
| 627 | ;; Set transient-mark-mode for a little while. | ||
| 628 | (setq transient-mark-mode (or transient-mark-mode 'lambda)) | ||
| 627 | (setq mouse-last-region-beg (region-beginning)) | 629 | (setq mouse-last-region-beg (region-beginning)) |
| 628 | (setq mouse-last-region-end (region-end)) | 630 | (setq mouse-last-region-end (region-end)) |
| 629 | (setq mouse-last-region-tick (buffer-modified-tick))) | 631 | (setq mouse-last-region-tick (buffer-modified-tick))) |