diff lisp/mouse.el @ 72999:c983ed5a8049

(mouse-on-link-p): Tentatively fix last change. (mouse-drag-vertical-line): Remove unused var `wconfig'.

--- a/lisp/mouse.el	Tue Sep 19 16:32:07 2006 +0000
+++ b/lisp/mouse.el	Tue Sep 19 16:33:30 2006 +0000
@@ -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)