[Emacs-diffs] Changes to emacs/lisp/mouse.el,v

[Stefan Monnier]

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)