rendering a table moves point in an unrelated buffer.

[mooseyboots]

in ctbl:cp-move-cursor , this snippet:

(unless (eql (selected-window) (get-buffer-window (current-buffer))) ;; this check passes, so next line runs:
        (set-window-point (get-buffer-window (current-buffer)) pos)) ;; moves point in non-Table buffer

moves the position of point not in the Table buffer, but in the buffer that was active before table rendering began.

i'm using ctable in a package i'm writing, but i'm not sure if anything in my own package could be responsible for this.

i'm not sure why the two lines are needed, if i comment them out, it seems to work fine, as point has already been correctly placed by the preceding code:

(cond
     (pos
      (goto-char pos) ;; this seems to suffice?
      ;; (unless (eql (selected-window) (get-buffer-window (current-buffer)))
      ;; (set-window-point (get-buffer-window (current-buffer)) pos))
      t)
     (t nil))

is there perhaps some other reason they're needed?