mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

2006-02-08 Chong Yidong <cyd@stupidchicken.com>

Browse Source 
* mouse.el (mouse-drag-track): Don't change window if we rebind to
	some other event.
This commit is contained in:
Chong Yidong 2006-02-08 20:47:24 +00:00
parent e499d09261
commit 745cfc5705
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2006-02-08 Chong Yidong <cyd@stupidchicken.com>
* mouse.el (mouse-drag-track): Don't change window if we rebind to
some other event.
2006-02-08 Ryan Yeske <rcyeske@gmail.com>
* net/rcirc.el (rcirc-startup-channels-alist): Add

4
lisp/mouse.el
View File

@ -1036,13 +1036,13 @@ should only be used by mouse-drag-region."
(if (> mouse-1-click-follows-link 0)
(<= (- t1 t0) mouse-1-click-follows-link)
(< (- t0 t1) mouse-1-click-follows-link))))))))
;; Reselect previous selected window,
;; If we rebind to mouse-2, reselect previous selected window,
;; so that the mouse-2 event runs in the same
;; situation as if user had clicked it directly.
;; Fixes the bug reported by juri@jurta.org on 2005-12-27.
(select-window original-window)
(if (or (vectorp on-link) (stringp on-link))
(setq event (aref on-link 0))
(select-window original-window)
(setcar event 'mouse-2)
;; If this mouse click has never been done by
;; the user, it doesn't have the necessary