* test/automated/xwidget-tests.el: Emacs parallel API changed.
This commit is contained in:
parent
468b183880
commit
edeb7fdc4f
1 changed files with 3 additions and 3 deletions
|
@ -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))))))))
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue