diff options
| author | Grégoire Jadi | 2013-08-19 20:46:58 +0200 |
|---|---|---|
| committer | Grégoire Jadi | 2013-08-19 20:46:58 +0200 |
| commit | edeb7fdc4fd422545044973b1f41309402f8bab8 (patch) | |
| tree | e97d8863f67470a5069d9440ac8646689c036c90 | |
| parent | 468b1838805e9c09c6a4297e583d3cde37c9518b (diff) | |
| download | emacs-edeb7fdc4fd422545044973b1f41309402f8bab8.tar.gz emacs-edeb7fdc4fd422545044973b1f41309402f8bab8.zip | |
* test/automated/xwidget-tests.el: Emacs parallel API changed.
| -rw-r--r-- | test/automated/xwidget-tests.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/automated/xwidget-tests.el b/test/automated/xwidget-tests.el index 7beaeda000e..7f79c9422f6 100644 --- a/test/automated/xwidget-tests.el +++ b/test/automated/xwidget-tests.el | |||
| @@ -38,8 +38,8 @@ | |||
| 38 | (let* ((buffer (current-buffer)) | 38 | (let* ((buffer (current-buffer)) |
| 39 | (xwidget (make-xwidget beg end type title width height data buffer))) | 39 | (xwidget (make-xwidget beg end type title width height data buffer))) |
| 40 | (set-xwidget-query-on-exit-flag xwidget nil) | 40 | (set-xwidget-query-on-exit-flag xwidget nil) |
| 41 | (parallel-send (coerce (xwidget-info xwidget) 'list)) | 41 | (parallel-remote-send (coerce (xwidget-info xwidget) 'list)) |
| 42 | (parallel-send (buffer-name buffer)) | 42 | (parallel-remote-send (buffer-name buffer)) |
| 43 | (buffer-name (xwidget-buffer xwidget))))) | 43 | (buffer-name (xwidget-buffer xwidget))))) |
| 44 | :env (list beg end type title width height data))) | 44 | :env (list beg end type title width height data))) |
| 45 | (results (parallel-get-results proc))) | 45 | (results (parallel-get-results proc))) |
| @@ -57,7 +57,7 @@ | |||
| 57 | (parallel-start (lambda () | 57 | (parallel-start (lambda () |
| 58 | (require 'xwidget) | 58 | (require 'xwidget) |
| 59 | (let ((xwidget (make-xwidget 1 1 'Button "Button" 100 100 nil))) | 59 | (let ((xwidget (make-xwidget 1 1 'Button "Button" 100 100 nil))) |
| 60 | (parallel-send (xwidget-query-on-exit-flag xwidget)) | 60 | (parallel-remote-send (xwidget-query-on-exit-flag xwidget)) |
| 61 | (set-xwidget-query-on-exit-flag xwidget nil) | 61 | (set-xwidget-query-on-exit-flag xwidget nil) |
| 62 | (xwidget-query-on-exit-flag xwidget)))))))) | 62 | (xwidget-query-on-exit-flag xwidget)))))))) |
| 63 | 63 | ||