(let* ((buffer (current-buffer))
(xwidget (make-xwidget beg end type title width height data buffer)))
(set-xwidget-query-on-exit-flag xwidget nil)
- (parallel-send (coerce (xwidget-info xwidget) 'list))
- (parallel-send (buffer-name buffer))
+ (parallel-remote-send (coerce (xwidget-info xwidget) 'list))
+ (parallel-remote-send (buffer-name buffer))
(buffer-name (xwidget-buffer xwidget)))))
:env (list beg end type title width height data)))
(results (parallel-get-results proc)))
(parallel-start (lambda ()
(require 'xwidget)
(let ((xwidget (make-xwidget 1 1 'Button "Button" 100 100 nil)))
- (parallel-send (xwidget-query-on-exit-flag xwidget))
+ (parallel-remote-send (xwidget-query-on-exit-flag xwidget))
(set-xwidget-query-on-exit-flag xwidget nil)
(xwidget-query-on-exit-flag xwidget))))))))