From 9acc8834b3ed183407c56be62df9ad9456cfbd3d Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 2 Jun 2014 13:35:40 +0200 Subject: [PATCH] * net/tramp.el (tramp-call-process): Add more traces. --- lisp/net/tramp.el | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 29a7b95357c..5164c4b32bb 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -4124,18 +4124,17 @@ Lisp error raised when PROGRAM is nil is trapped also, returning 1. Furthermore, traces are written with verbosity of 6." (let ((v (vector tramp-current-method tramp-current-user tramp-current-host nil nil)) - (result 1)) + result) (tramp-message v 6 "`%s %s' %s %s" program (mapconcat 'identity args " ") infile destination) - (when (executable-find program) - (with-temp-buffer - (setq result - (apply - 'call-process program infile (or destination t) display args)) - (with-current-buffer - (if (bufferp destination) destination (current-buffer)) - (tramp-message v 6 "%d\n%s" result (buffer-string))))) + (with-temp-buffer + (setq result + (apply + 'call-process program infile (or destination t) display args)) + (with-current-buffer + (if (bufferp destination) destination (current-buffer)) + (tramp-message v 6 "%d\n%s" result (buffer-string)))) result)) ;;;###tramp-autoload -- 2.39.5