Commit 2830e9b6 authored by Michael Albinus's avatar Michael Albinus
Browse files

* automated/tramp-tests.el (tramp-test28-shell-command): Perform

an initial `sit-for' prior the while loop.
parent 2836affa
2014-02-17 Michael Albinus <michael.albinus@gmx.de>
* automated/tramp-tests.el (tramp-test28-shell-command): Perform
an initial `sit-for' prior the while loop.
2014-02-16 Michael Albinus <michael.albinus@gmx.de>
Sync with Tramp 2.2.9.
......
......@@ -1176,6 +1176,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
(should (file-exists-p tmp-name))
(async-shell-command
(format "ls %s" (file-name-nondirectory tmp-name)) (current-buffer))
(sit-for 1 'nodisplay)
(while (ignore-errors
(memq (process-status (get-buffer-process (current-buffer)))
'(run open)))
......@@ -1193,6 +1194,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
(process-send-string
(get-buffer-process (current-buffer))
(format "%s\n" (file-name-nondirectory tmp-name)))
(sit-for 1 'nodisplay)
(while (ignore-errors
(memq (process-status (get-buffer-process (current-buffer)))
'(run open)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment