Index: lisp/isearch.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/isearch.el,v
retrieving revision 1.290
diff -u -r1.290 isearch.el
*** lisp/isearch.el	20 Sep 2006 06:13:43 -0000	1.290
--- lisp/isearch.el	3 Oct 2006 09:55:18 -0000
***************
*** 1297,1313 ****
    (interactive "e")
    (let* ((w (posn-window (event-start click)))
  	 (overriding-terminal-local-map nil)
! 	 (key (vector (event-basic-type click)))
! 	 ;; FIXME: `key-binding' should accept an event as argument
! 	 ;; and do all the overlay/text-properties lookup etc...
! 	 (binding (with-current-buffer
! 		      (if (window-live-p w) (window-buffer w) (current-buffer))
! 		    (key-binding key))))
      (if (and (window-minibuffer-p w)
  	     (not (minibuffer-window-active-p w))) ; in echo area
  	(isearch-yank-x-selection)
        (when (functionp binding)
! 	(call-interactively binding)))))
  
  
  (defun isearch-yank-internal (jumpform)
--- 1297,1311 ----
    (interactive "e")
    (let* ((w (posn-window (event-start click)))
  	 (overriding-terminal-local-map nil)
! ;;   Should we rather use the output of `this-command-keys-vector'
! ;;   instead of `(vector click)' for `keys'?
! 	 (keys (vector click))
! 	 (binding (key-binding keys t)))
      (if (and (window-minibuffer-p w)
  	     (not (minibuffer-window-active-p w))) ; in echo area
  	(isearch-yank-x-selection)
        (when (functionp binding)
! 	(call-interactively binding nil keys)))))
  
  
  (defun isearch-yank-internal (jumpform)
Index: lisp/ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.10156
diff -u -r1.10156 ChangeLog
*** lisp/ChangeLog	2 Oct 2006 23:26:42 -0000	1.10156
--- lisp/ChangeLog	3 Oct 2006 09:55:50 -0000
***************
*** 1,3 ****
--- 1,10 ----
+ 2006-10-03  David Kastrup  <address@hidden>
+ 
+ 	* isearch.el (isearch-mouse-2): Use new semantics of `key-binding'
+ 	in order to better redirect mouse-2 clicks.  Also allow default
+ 	bindings to apply, and pass the synthetic key-sequence to
+ 	`call-interactively'.
+ 
  2006-10-03  Denis St,A|(Bnkel  <address@hidden>  (tiny change)
  
  	* ibuf-ext.el (eval, view-and-eval) <define-ibuffer-op>: