[Emacs-diffs] /srv/bzr/emacs/trunk r111351: * net/tramp.el (tramp-handle-file-accessible-directory-p): New defun.

[Michael Albinus]

------------------------------------------------------------
revno: 111351
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Thu 2012-12-27 20:00:57 +0100
message:
  * net/tramp.el (tramp-handle-file-accessible-directory-p): New defun.
  
  * net/tramp-adb.el (tramp-adb-file-name-handler-alist):
  * net/tramp-gvfs.el (tramp-gvfs-file-name-handler-alist):
  * net/tramp-sh.el (tramp-sh-file-name-handler-alist): Add handler
  for `file-accessible-directory-p'.  (Bug#13275)
modified:
  lisp/ChangeLog
  lisp/net/tramp-adb.el
  lisp/net/tramp-gvfs.el
  lisp/net/tramp-sh.el
  lisp/net/tramp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-12-27 16:33:06 +0000
+++ b/lisp/ChangeLog    2012-12-27 19:00:57 +0000
@@ -1,3 +1,12 @@
+2012-12-27  Michael Albinus  <address@hidden>
+
+       * net/tramp.el (tramp-handle-file-accessible-directory-p): New defun.
+
+       * net/tramp-adb.el (tramp-adb-file-name-handler-alist):
+       * net/tramp-gvfs.el (tramp-gvfs-file-name-handler-alist):
+       * net/tramp-sh.el (tramp-sh-file-name-handler-alist): Add handler
+       for `file-accessible-directory-p'.  (Bug#13275)
+
 2012-12-27  Sam Steingold  <address@hidden>
 
        * progmodes/cperl-mode.el (cperl-calculate-indent): Do not stagger

=== modified file 'lisp/net/tramp-adb.el'
--- a/lisp/net/tramp-adb.el     2012-12-26 16:22:18 +0000
+++ b/lisp/net/tramp-adb.el     2012-12-27 19:00:57 +0000
@@ -82,6 +82,7 @@
     (file-name-as-directory . tramp-handle-file-name-as-directory)
     (file-regular-p . tramp-handle-file-regular-p)
     (file-remote-p . tramp-handle-file-remote-p)
+    (file-accessible-directory-p . tramp-handle-file-accessible-directory-p)
     (file-directory-p . tramp-adb-handle-file-directory-p)
     (file-symlink-p . tramp-handle-file-symlink-p)
     ;; FIXME: This is too sloppy.

=== modified file 'lisp/net/tramp-gvfs.el'
--- a/lisp/net/tramp-gvfs.el    2012-12-17 14:38:07 +0000
+++ b/lisp/net/tramp-gvfs.el    2012-12-27 19:00:57 +0000
@@ -384,7 +384,7 @@
     (dired-uncache . tramp-handle-dired-uncache)
     ;; `executable-find' is not official yet. performed by default handler.
     (expand-file-name . tramp-gvfs-handle-expand-file-name)
-    ;; `file-accessible-directory-p' performed by default handler.
+    (file-accessible-directory-p . tramp-handle-file-accessible-directory-p)
     (file-acl . tramp-gvfs-handle-file-acl)
     (file-attributes . tramp-gvfs-handle-file-attributes)
     (file-directory-p . tramp-gvfs-handle-file-directory-p)

=== modified file 'lisp/net/tramp-sh.el'
--- a/lisp/net/tramp-sh.el      2012-12-19 13:01:16 +0000
+++ b/lisp/net/tramp-sh.el      2012-12-27 19:00:57 +0000
@@ -935,6 +935,7 @@
     (file-name-nondirectory . tramp-handle-file-name-nondirectory)
     (file-truename . tramp-sh-handle-file-truename)
     (file-exists-p . tramp-sh-handle-file-exists-p)
+    (file-accessible-directory-p . tramp-handle-file-accessible-directory-p)
     (file-directory-p . tramp-sh-handle-file-directory-p)
     (file-executable-p . tramp-sh-handle-file-executable-p)
     (file-readable-p . tramp-sh-handle-file-readable-p)

=== modified file 'lisp/net/tramp.el'
--- a/lisp/net/tramp.el 2012-12-18 13:37:06 +0000
+++ b/lisp/net/tramp.el 2012-12-27 19:00:57 +0000
@@ -2757,6 +2757,11 @@
       (if (or dir-p (file-directory-p dir)) dir (file-name-directory dir)) nil
     (tramp-flush-directory-property v localname)))
 
+(defun tramp-handle-file-accessible-directory-p (filename)
+  "Like `file-accessible-directory-p' for Tramp files."
+  (and (file-directory-p filename)
+       (file-executable-p filename)))
+
 (defun tramp-handle-file-exists-p (filename)
   "Like `file-exists-p' for Tramp files."
   (not (null (file-attributes filename))))