[Emacs-diffs] master d6dac36: ; Instrument tramp.el

[Michael Albinus]

branch: master
commit d6dac367ccf2d9fc8a0e50d47e8a753adf9a0770
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    ; 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 118da57..57a6594 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)