; Remove instrumentation of tramp.el

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 9f678554654b7750aa83a9e59f7ea5dca13d64db..6f30f395cd4c81b98b17553b97610f1d8cb35092 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -2846,20 +2846,6 @@ User is always nil."
   (let ((v (tramp-dissect-file-name file t)))
     ;; Run the command on the localname portion only unless we are in
     ;; completion mode.
-    (when (getenv "NIX_STORE")
-      (message
-       "tramp-handle-file-name-as-directory file %s tramp-completion-mode-p %s result %s"
-       file (tramp-completion-mode-p)
-       (tramp-make-tramp-file-name
-        (tramp-file-name-method v)
-        (tramp-file-name-user v)
-        (tramp-file-name-host v)
-        (if (and (tramp-completion-mode-p)
-                 (zerop (length (tramp-file-name-localname v))))
-            ""
-          (tramp-run-real-handler
-           'file-name-as-directory (list (or (tramp-file-name-localname v) ""))))
-        (tramp-file-name-hop v))))
     (tramp-make-tramp-file-name
      (tramp-file-name-method v)
      (tramp-file-name-user v)