emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Default Emacs keybindings (was: Re: Menu suggestion)


From: Stefan Monnier
Subject: Re: Default Emacs keybindings (was: Re: Menu suggestion)
Date: 29 Apr 2004 15:42:57 -0400
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3.50

> Also when explicitly marking a region with the mouse (dragging mouse-1
> or clicking mouse-3), temporary transient mark mode should be enabled:

I had actually completely forgotten that I had already implemented it in my
local hacks.
What do people say about the following little patch?


        Stefan


--- mouse.el    29 Apr 2004 12:26:26 -0400      1.245
+++ mouse.el    29 Apr 2004 15:27:48 -0400      
@@ -617,6 +617,8 @@
     (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)))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]