* net/tramp-sh.el (tramp-set-remote-path, tramp-get-ls-command):

Remove instrumentation code.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2970d7f1e4bb0014bd709d4f3f130cd650ddadd5..b8922fdaf049474d043ee8fa6ba474fade1b4912 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-11-08  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp-sh.el (tramp-set-remote-path, tramp-get-ls-command):
+       Remove instrumentation code.
+
 2013-11-08  Glenn Morris  <rgm@gnu.org>
 
        * progmodes/autoconf.el (autoconf-mode):

diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 77965b67c71c8bb514c90fc4d6cd02e8f3f8de66..f8b99dd918eae73a33ca6e5a7710bf0661240401 100644 (file)
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -3576,12 +3576,6 @@ This function expects to be in the right *tramp* buffer."
 I.e., for each directory in `tramp-remote-path', it is tested
 whether it exists and if so, it is added to the environment
 variable PATH."
-  (when (featurep 'ert)
-    (ignore-errors
-      (with-demoted-errors
-         (message
-          "tramp-set-remote-path:\n%s\n"
-          (tramp-send-command-and-read vec "echo PATH=$PATH")))))
   (tramp-message vec 5 "Setting $PATH environment variable")
   (tramp-send-command
    vec (format "PATH=%s; export PATH"
@@ -4837,23 +4831,7 @@ Return ATTR."
        remote-path)))))
 
 (defun tramp-get-ls-command (vec)
-;  (with-tramp-connection-property vec "ls"
-    (when (featurep 'ert)
-      (ignore-errors
-       (with-demoted-errors
-         (message
-          "tramp-get-ls-command printenv:\n%s\n"
-          (tramp-send-command-and-read
-           vec "echo \"\\\"`(printenv | sort) || exit`\\\"\"")))
-       (with-demoted-errors
-         (message
-          "tramp-get-ls-command getconf PATH:\n%s\n"
-          (tramp-send-command-and-read
-           vec "echo \\\"`getconf PATH 2>/dev/null || exit`\\\"")))
-       (with-demoted-errors
-         (message
-          "tramp-get-ls-command whereis ls:\n%s\n"
-          (tramp-send-command-and-read vec "echo \"\\\"`whereis ls || exit`\\\"\"")))))
+  (with-tramp-connection-property vec "ls"
     (tramp-message vec 5 "Finding a suitable `ls' command")
     (or
      (catch 'ls-found
@@ -4875,7 +4853,7 @@ Return ATTR."
                 (setq result (concat result " --color=never")))
               (throw 'ls-found result))
             (setq dl (cdr dl))))))
-     (tramp-error vec 'file-error "Couldn't find a proper `ls' command")));)
+     (tramp-error vec 'file-error "Couldn't find a proper `ls' command"))))
 
 (defun tramp-get-ls-command-with-dired (vec)
   (save-match-data