diff options
| author | Michael Albinus | 2008-02-03 12:02:39 +0000 |
|---|---|---|
| committer | Michael Albinus | 2008-02-03 12:02:39 +0000 |
| commit | 1a0b96d35633d5950fa5af036ef49d272818eceb (patch) | |
| tree | cfc9ab4210d52137dfe28a420120554d07ffc816 | |
| parent | 7bb7efbd4aa34b87aef6f468a485a9eb3b16ba18 (diff) | |
| download | emacs-1a0b96d35633d5950fa5af036ef49d272818eceb.tar.gz emacs-1a0b96d35633d5950fa5af036ef49d272818eceb.zip | |
* net/tramp-cache.el (tramp-flush-connection-property): Remove EVENT.
| -rw-r--r-- | lisp/net/tramp-cache.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el index 4654c212ee3..945823959cd 100644 --- a/lisp/net/tramp-cache.el +++ b/lisp/net/tramp-cache.el | |||
| @@ -203,17 +203,14 @@ PROPERTY is set persistent when KEY is a vector." | |||
| 203 | (error nil)) | 203 | (error nil)) |
| 204 | value)) | 204 | value)) |
| 205 | 205 | ||
| 206 | (defun tramp-flush-connection-property (key event) | 206 | (defun tramp-flush-connection-property (key) |
| 207 | "Remove all properties identified by KEY. | 207 | "Remove all properties identified by KEY. |
| 208 | KEY identifies the connection, it is either a process or a | 208 | KEY identifies the connection, it is either a process or a vector." |
| 209 | vector. EVENT is not used, it is just applied because this | ||
| 210 | function is intended to run also as process sentinel." | ||
| 211 | ;; Unify key by removing localname from vector. Work with a copy in | 209 | ;; Unify key by removing localname from vector. Work with a copy in |
| 212 | ;; order to avoid side effects. | 210 | ;; order to avoid side effects. |
| 213 | (when (vectorp key) | 211 | (when (vectorp key) |
| 214 | (setq key (copy-sequence key)) | 212 | (setq key (copy-sequence key)) |
| 215 | (aset key 3 nil)) | 213 | (aset key 3 nil)) |
| 216 | ; (tramp-message key 7 "%s" event) | ||
| 217 | (remhash key tramp-cache-data)) | 214 | (remhash key tramp-cache-data)) |
| 218 | 215 | ||
| 219 | (defun tramp-cache-print (table) | 216 | (defun tramp-cache-print (table) |