mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 14:41:11 -08:00
Code Issues Projects Releases Wiki 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
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)