* lisp/net/tramp.el (tramp-call-process): `result' can also be nil.
* test/lisp/net/tramp-tests.el (tramp--test-timeout-handler):
Improve trace format.
(setq error (error-message-string err)
result 1)))
(if (zerop (length error))
- (tramp-message vec 6 "%d\n%s" result output)
- (tramp-message vec 6 "%d\n%s\n%s" result output error))
+ (tramp-message vec 6 "%s\n%s" result output)
+ (tramp-message vec 6 "%s\n%s\n%s" result output error))
result))
(defun tramp-call-process-region
(let ((proc (get-buffer-process (current-buffer))))
(when (processp proc)
(tramp--test-message
- "cmd: %s\n%s" (process-command proc) (buffer-string))))
+ "cmd: %s\nbuf:\n%s\n---" (process-command proc) (buffer-string))))
(ert-fail (format "`%s' timed out" (ert-test-name (ert-running-test)))))
(ert-deftest tramp-test29-start-file-process ()