]> git.eshelyaron.com Git - emacs.git/commitdiff
Some Tramp trace improvements
authorMichael Albinus <michael.albinus@gmx.de>
Sun, 27 Oct 2019 08:36:56 +0000 (09:36 +0100)
committerMichael Albinus <michael.albinus@gmx.de>
Sun, 27 Oct 2019 08:36:56 +0000 (09:36 +0100)
* 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.

lisp/net/tramp.el
test/lisp/net/tramp-tests.el

index 97fcf55301093b717a7ab6b5ef45e1082b4c5f4b..0dfde734f1d580a33157ca0482426b99425f3a0c 100644 (file)
@@ -4660,8 +4660,8 @@ are written with verbosity of 6."
        (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
index 128d099ac24feb8f61d76a2f57c9aab3518c9050..c56c7dbbca29378a2bd63e243278301ff4e379c5 100644 (file)
@@ -4010,7 +4010,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
   (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 ()