* test/automated/xwidget-tests.el: Emacs parallel API changed.

This commit is contained in:
Grégoire Jadi 2013-08-19 20:46:58 +02:00
parent 468b183880
commit edeb7fdc4f

View file

@ -38,8 +38,8 @@
(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)))
@ -57,7 +57,7 @@
(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))))))))