diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2016-05-09 19:55:49 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2016-05-09 19:55:49 +0200 |
| commit | d6dac367ccf2d9fc8a0e50d47e8a753adf9a0770 (patch) | |
| tree | 63cba92cc5ed7cdef66f25e79e91aedd50984df4 /lisp | |
| parent | a8231e00cbad60652ff7ab6ae51a758f1d939971 (diff) | |
| download | emacs-d6dac367ccf2d9fc8a0e50d47e8a753adf9a0770.tar.gz | |
; Instrument tramp.el
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/tramp.el | 14 |
1 files changed, 14 insertions, 0 deletions
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) |