comparison lisp/net/tramp-cmds.el @ 95964:c8848a020b33

* net/tramp-cmds.el (tramp-cleanup-all-connections): Reset `tramp-locked'.
author Michael Albinus <michael.albinus@gmx.de>
date Sun, 15 Jun 2008 13:37:25 +0000
parents 91e5880a36c1
children a9dc0e7c3f2b
comparison
equal deleted inserted replaced
95963:a20bb74ebe03 95964:c8848a020b33
99 99
100 (defun tramp-cleanup-all-connections () 100 (defun tramp-cleanup-all-connections ()
101 "Flush all Tramp internal objects. 101 "Flush all Tramp internal objects.
102 This includes password cache, file cache, connection cache, buffers." 102 This includes password cache, file cache, connection cache, buffers."
103 (interactive) 103 (interactive)
104
105 ;; Unlock Tramp.
106 (setq tramp-locked nil)
104 107
105 ;; Flush password cache. 108 ;; Flush password cache.
106 (when (functionp 'password-reset) 109 (when (functionp 'password-reset)
107 (funcall (symbol-function 'password-reset))) 110 (funcall (symbol-function 'password-reset)))
108 111