* net/tramp-smb.el (tramp-smb-file-name-handler-alist): Handle

`file-name-as-directory'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 59822ba5128efdddc5fecb66b6c0f78df480d812..b67d5f11f36f2e200332cb4475ca39b3e29db145 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2008-11-16  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp.el (tramp-handle-file-name-as-directory): New defun.
+       (tramp-file-name-handler-alist): Handle `file-name-as-directory'.
+
+       * net/tramp-fish.el (tramp-fish-file-name-handler-alist)
+       * net/tramp-smb.el (tramp-smb-file-name-handler-alist): Handle
+       `file-name-as-directory'.
+
 2008-11-16  Chong Yidong  <cyd@stupidchicken.com>
 
        * startup.el (fancy-startup-text): Give "Emacs tutorial" line the

diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index a3ac67e0b7a7e3eb832da0aa9b4fd289e5f4c9ac..af6cf93dd1e4001addbac6c6bb70bd9554eab8ca 100644 (file)
--- a/lisp/net/tramp-smb.el
+++ b/lisp/net/tramp-smb.el
@@ -150,7 +150,7 @@ See `tramp-actions-before-shell' for more info.")
     (file-remote-p . tramp-handle-file-remote-p)
     (file-modes . tramp-handle-file-modes)
     (file-name-all-completions . tramp-smb-handle-file-name-all-completions)
-    ;; `file-name-as-directory' performed by default handler
+    (file-name-as-directory . tramp-handle-file-name-as-directory)
     (file-name-completion . tramp-handle-file-name-completion)
     (file-name-directory . tramp-handle-file-name-directory)
     (file-name-nondirectory . tramp-handle-file-name-nondirectory)