diff options
| author | Michael Albinus | 2016-05-09 19:55:49 +0200 |
|---|---|---|
| committer | Michael Albinus | 2016-05-09 19:55:49 +0200 |
| commit | d6dac367ccf2d9fc8a0e50d47e8a753adf9a0770 (patch) | |
| tree | 63cba92cc5ed7cdef66f25e79e91aedd50984df4 | |
| parent | a8231e00cbad60652ff7ab6ae51a758f1d939971 (diff) | |
| download | emacs-d6dac367ccf2d9fc8a0e50d47e8a753adf9a0770.tar.gz emacs-d6dac367ccf2d9fc8a0e50d47e8a753adf9a0770.zip | |
; Instrument tramp.el
| -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." | |||
| 2847 | (let ((v (tramp-dissect-file-name file t))) | 2847 | (let ((v (tramp-dissect-file-name file t))) |
| 2848 | ;; Run the command on the localname portion only unless we are in | 2848 | ;; Run the command on the localname portion only unless we are in |
| 2849 | ;; completion mode. | 2849 | ;; completion mode. |
| 2850 | (when (getenv "NIX_STORE") | ||
| 2851 | (message | ||
| 2852 | "tramp-handle-file-name-as-directory file %s tramp-completion-mode-p %s result %s" | ||
| 2853 | file (tramp-completion-mode-p) | ||
| 2854 | (tramp-make-tramp-file-name | ||
| 2855 | (tramp-file-name-method v) | ||
| 2856 | (tramp-file-name-user v) | ||
| 2857 | (tramp-file-name-host v) | ||
| 2858 | (if (and (tramp-completion-mode-p) | ||
| 2859 | (zerop (length (tramp-file-name-localname v)))) | ||
| 2860 | "" | ||
| 2861 | (tramp-run-real-handler | ||
| 2862 | 'file-name-as-directory (list (or (tramp-file-name-localname v) "")))) | ||
| 2863 | (tramp-file-name-hop v)))) | ||
| 2850 | (tramp-make-tramp-file-name | 2864 | (tramp-make-tramp-file-name |
| 2851 | (tramp-file-name-method v) | 2865 | (tramp-file-name-method v) |
| 2852 | (tramp-file-name-user v) | 2866 | (tramp-file-name-user v) |