[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master d6dac36: ; Instrument tramp.el
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] master d6dac36: ; Instrument tramp.el |
Date: |
Mon, 9 May 2016 17:56:03 +0000 (UTC) |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master d6dac36: ; Instrument tramp.el,
Michael Albinus <=