Emacs Lisp: How to activate window of mouse event?

Question

Having an event from a mouse click: How to activate the window where the event occured?

As I want to insert some text at the position of the mouse event, I use (goto-char (nth 1 (event-start event))).

But in case the mouse event occured in another window than the active one, what is the appropriate way to first switch to that other window?

Answer 1

I recommend you do

(posn-set-point (event-end event))