--- lisp/ChangeLog | 6 ++++++ lisp/tramp.el | 6 ++++++ 2 files changed, 12 insertions(+), 0 deletions(-)
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1f0ad8d..827ff25 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-08-15 Julian Scheid <[email protected]> + + (tramp-handle-file-readable-p): Don't use file attribute cache + when file is a symlink. + (tramp-handle-file-writable-p): Likewise. + 2009-08-15 Michael Albinus <[email protected]> * tramp.el (tramp-handle-vc-registered): Embed the code in diff --git a/lisp/tramp.el b/lisp/tramp.el index 45cdcae..cdb2b76 100644 --- a/lisp/tramp.el +++ b/lisp/tramp.el @@ -2869,6 +2869,9 @@ and gid of the corresponding user is taken. Both parameters must be integers." (and file-attr (or + (eq t (car file-attr)) + (null (car file-attr))) + (or ;; World readable. (eq ?r (aref (nth 8 file-attr) 7)) ;; User readable and owned by user. @@ -2991,6 +2994,9 @@ value of `default-file-modes', without execute permissions." (and file-attr (or + (eq t (car file-attr)) + (null (car file-attr))) + (or ;; World writable. (eq ?w (aref (nth 8 file-attr) 8)) ;; User writable and owned by user. -- 1.6.4 _______________________________________________ Tramp-devel mailing list [email protected] http://lists.gnu.org/mailman/listinfo/tramp-devel
