From d6dac367ccf2d9fc8a0e50d47e8a753adf9a0770 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 9 May 2016 19:55:49 +0200 Subject: [PATCH] ; Instrument tramp.el --- lisp/net/tramp.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 118da578858..57a6594880e 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -2847,6 +2847,20 @@ 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) -- 2.39.2