> I get this
>
> Debugger entered--Lisp error: (void-function posn-set-point)
> (posn-set-point (event-end event))
> (if event (posn-set-point (event-end event)))
> [...]
> widget-button-click((down-mouse-1 (#<window 514 on *tla-browse*> 1662 (71 .
> 769) -9269703)))
> call-interactively(widget-button-click)
>
> When I click on a version button in tla-browse.
>
> I suppose this is a CVS-only feature, I'd rather do without ...
I've found next 3 functions are needed in GNU Emacs 21.3.1.
Which file these functions should go?
One of my idea is xtla-g213.el.
(defsubst posn-window (position)
"Return the window in POSITION.
POSITION should be a list of the form returned by the `event-start'
and `event-end' functions."
(nth 0 position))
(defun posn-set-point (position)
"Move point to POSITION.
Select the corresponding window as well."
(if (not (windowp (posn-window position)))
(error "Position not in text area of window"))
(select-window (posn-window position))
(if (numberp (posn-point position))
(goto-char (posn-point position))))
(defsubst posn-point (position)
"Return the buffer location in POSITION.
POSITION should be a list of the form returned by the `event-start'
and `event-end' functions."
(or (nth 5 position)
(if (consp (nth 1 position))
(car (nth 1 position))
(nth 1 position))))
