mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

* net/tramp-cache.el (tramp-cache-inhibit-cache ): New defvar.

Browse Source 
(tramp-get-file-property): Use it.
This commit is contained in:
Michael Albinus 2009-08-02 17:15:42 +00:00
parent b9173dc296
commit afae3a3777
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/net/tramp-cache.el
View File

@ -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))