branch: master
commit e5eb534859acc0cc0a13403fd166457db9fb7eb5
Merge: 66f4359 bae87d9
Author: Alexey Veretennikov <txm.four...@gmail.com>
Commit: GitHub <nore...@github.com>
Merge pull request #37 from Silex/master
Don't rely on TRAMP internal functions
Fix of the Emacs bug 24200 debbugs.gnu.org/24200 proposed by Michael Albinus
---
ztree-util.el | 9 +--------
1 file changed, 1 insertion(+), 8 deletions(-)
diff --git a/ztree-util.el b/ztree-util.el
index 07935b7..39975b0 100644
--- a/ztree-util.el
+++ b/ztree-util.el
@@ -67,14 +67,7 @@ Used since `car-safe' returns nil for atoms"
(defun ztree-untrampify-filename (file)
"Return FILE as the local file name."
- ;; FIXME: We shouldn't use internal Tramp functions.
- (require 'tramp)
- (declare-function tramp-tramp-file-p "tramp" (name))
- (declare-function tramp-file-name-localname "tramp" (vec))
- (declare-function tramp-dissect-file-name "tramp" (name &optional nodefault))
- (if (not (tramp-tramp-file-p file))
- file
- (tramp-file-name-localname (tramp-dissect-file-name file))))
+ (or (file-remote-p file 'localname) file))
(defun ztree-quotify-string (str)
"Surround STR with quotes."
