]> git.eshelyaron.com Git - emacs.git/commitdiff
(mouse-set-region-1): Use temporary transient-mark-mode
authorStefan Monnier <monnier@iro.umontreal.ca>
Fri, 28 May 2004 21:06:26 +0000 (21:06 +0000)
committerStefan Monnier <monnier@iro.umontreal.ca>
Fri, 28 May 2004 21:06:26 +0000 (21:06 +0000)
after the user marked text with the mouse.

lisp/mouse.el

index 76098f45f1a428920e52c7e8d7cc2b2a80fc9e3d..621b517e2fe67b5ea919d1e2b0e61e5be5b170d2 100644 (file)
@@ -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)))