; Fix typo in Tramp
* lisp/net/tramp-cache.el (with-tramp-saved-connection-property): Fix typo.
This commit is contained in:
parent
684adc07c2
commit
bb756b195a
1 changed files with 2 additions and 2 deletions
|
@ -473,10 +473,10 @@ used to cache connection properties of the local machine."
|
||||||
(hash (tramp-get-hash-table key))
|
(hash (tramp-get-hash-table key))
|
||||||
(cached (and (hash-table-p hash)
|
(cached (and (hash-table-p hash)
|
||||||
(gethash ,property hash tramp-cache-undefined))))
|
(gethash ,property hash tramp-cache-undefined))))
|
||||||
(tramp-message key 7 "Saved %s %s" property cached)
|
(tramp-message key 7 "Saved %s %s" ,property cached)
|
||||||
(unwind-protect (progn ,@body)
|
(unwind-protect (progn ,@body)
|
||||||
;; Reset PROPERTY. Recompute hash, it could have been flushed.
|
;; Reset PROPERTY. Recompute hash, it could have been flushed.
|
||||||
(tramp-message key 7 "Restored %s %s" property cached)
|
(tramp-message key 7 "Restored %s %s" ,property cached)
|
||||||
(setq hash (tramp-get-hash-table key))
|
(setq hash (tramp-get-hash-table key))
|
||||||
(if (not (eq cached tramp-cache-undefined))
|
(if (not (eq cached tramp-cache-undefined))
|
||||||
(puthash ,property cached hash)
|
(puthash ,property cached hash)
|
||||||
|
|
Loading…
Add table
Reference in a new issue