[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mouse.el,v
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mouse.el,v |
Date: |
Tue, 19 Sep 2006 16:33:31 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Stefan Monnier <monnier> 06/09/19 16:33:30
Index: mouse.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mouse.el,v
retrieving revision 1.301
retrieving revision 1.302
diff -u -b -r1.301 -r1.302
--- mouse.el 15 Sep 2006 08:53:18 -0000 1.301
+++ mouse.el 19 Sep 2006 16:33:29 -0000 1.302
@@ -556,7 +556,7 @@
(echo-keystrokes 0)
(start-event-frame (window-frame (car (car (cdr start-event)))))
(start-event-window (car (car (cdr start-event))))
- event mouse x left right edges wconfig growth
+ event mouse x left right edges growth
(which-side
(or (cdr (assq 'vertical-scroll-bars (frame-parameters
start-event-frame)))
'right)))
@@ -835,7 +835,9 @@
((eq action 'mouse-face)
(and (mouse-posn-property pos 'mouse-face) t))
((functionp action)
- (funcall action pos))
+ ;; FIXME: This is wrong if the click is in a different buffer.
+ ;; Should we instead decide that `action' takes a `posn'?
+ (funcall action (if (consp pos) (posn-point pos) pos)))
(t action))))
(defun mouse-fixup-help-message (msg)