diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2009-08-02 17:15:42 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2009-08-02 17:15:42 +0000 |
| commit | afae3a37773b0dfee20d04aa3bb686677b6bf757 (patch) | |
| tree | 52bb8b3681ca8047739b8e7f92b7ec10102312d4 /lisp/net/tramp-cache.el | |
| parent | b9173dc296f964cab904fc5eae02344e1b59eed2 (diff) | |
| download | emacs-afae3a37773b0dfee20d04aa3bb686677b6bf757.tar.gz | |
* net/tramp-cache.el (tramp-cache-inhibit-cache ): New defvar.
(tramp-get-file-property): Use it.
Diffstat (limited to 'lisp/net/tramp-cache.el')
| -rw-r--r-- | lisp/net/tramp-cache.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el index 8a42a3ff746..49bbd79cb45 100644 --- a/lisp/net/tramp-cache.el +++ b/lisp/net/tramp-cache.el @@ -69,6 +69,9 @@ (defvar tramp-cache-data (make-hash-table :test 'equal) "Hash table for remote files properties.") +(defvar tramp-cache-inhibit-cache nil + "Inhibit cache read access, when non-nil.") + (defcustom tramp-persistency-file-name (cond ;; GNU Emacs. @@ -103,7 +106,7 @@ Returns DEFAULT if not set." (let* ((hash (or (gethash vec tramp-cache-data) (puthash vec (make-hash-table :test 'equal) tramp-cache-data))) - (value (if (hash-table-p hash) + (value (if (and (null tramp-cache-inhibit-cache) (hash-table-p hash)) (gethash property hash default) default))) (tramp-message vec 8 "%s %s %s" file property value) @@ -182,8 +185,8 @@ If the value is not set for the connection, returns DEFAULT." (aset key 3 nil)) (let* ((hash (gethash key tramp-cache-data)) (value (if (hash-table-p hash) - (gethash property hash default) - default))) + (gethash property hash default) + default))) (tramp-message key 7 "%s %s" property value) value)) |