[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH 1/1] (tramp-handle-file-readable-p): Don't use file attribute cac
From: |
Julian Scheid |
Subject: |
[PATCH 1/1] (tramp-handle-file-readable-p): Don't use file attribute cache when file is a symlink. (tramp-handle-file-writable-p): Likewise. |
Date: |
Sun, 16 Aug 2009 15:59:10 +1200 |
---
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 <address@hidden>
+
+ (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 <address@hidden>
* 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
- [PATCH 1/1] (tramp-handle-file-readable-p): Don't use file attribute cache when file is a symlink. (tramp-handle-file-writable-p): Likewise.,
Julian Scheid <=