mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

; Instrument tramp.el

Browse Source
This commit is contained in:
Michael Albinus 2016-05-09 19:55:49 +02:00
parent a8231e00cb
commit d6dac367cc
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/net/tramp.el
View File

@ -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)