diff options
author | Michael Albinus <michael.albinus@gmx.de> | 2015-11-11 11:47:26 +0100 |
---|---|---|
committer | Michael Albinus <michael.albinus@gmx.de> | 2015-11-11 11:47:26 +0100 |
commit | ef75c3b56b8ff034eb47e0c69328227127cc93fa (patch) | |
tree | 1d10f8bfc4efe05495bf04a6d265d91f9e56706f /lisp/net/tramp-smb.el | |
parent | 25775a12c5168b0494dff15639ac25d8e1017530 (diff) | |
download | emacs-ef75c3b56b8ff034eb47e0c69328227127cc93fa.tar.gz |
Optimize `file-equal-p' and `file-in-directory-p' in Tramp
* lisp/net/tramp.el (tramp-handle-file-equal-p)
(tramp-handle-file-in-directory-p): New defuns. Suggested by
Harvey Chapman <hchapman@3gfp.com>
* lisp/net/tramp-adb.el (tramp-adb-file-name-handler-alist):
* lisp/net/tramp-gvfs.el (tramp-gvfs-file-name-handler-alist):
* lisp/net/tramp-sh.el (tramp-sh-file-name-handler-alist):
* lisp/net/tramp-smb.el (tramp-smb-file-name-handler-alist): Use them.
Diffstat (limited to 'lisp/net/tramp-smb.el')
-rw-r--r-- | lisp/net/tramp-smb.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el index c95679584dc..65c77eba0eb 100644 --- a/lisp/net/tramp-smb.el +++ b/lisp/net/tramp-smb.el @@ -232,10 +232,10 @@ See `tramp-actions-before-shell' for more info.") (file-acl . tramp-smb-handle-file-acl) (file-attributes . tramp-smb-handle-file-attributes) (file-directory-p . tramp-smb-handle-file-directory-p) - ;; `file-equal-p' performed by default handler. + (file-file-equal-p . tramp-handle-file-equal-p) (file-executable-p . tramp-handle-file-exists-p) (file-exists-p . tramp-handle-file-exists-p) - ;; `file-in-directory-p' performed by default handler. + (file-in-directory-p . tramp-handle-file-in-directory-p) (file-local-copy . tramp-smb-handle-file-local-copy) (file-modes . tramp-handle-file-modes) (file-name-all-completions . tramp-smb-handle-file-name-all-completions) |