4477 |
(set-buffer (tramp-get-buffer multi-method method user host)) |
(set-buffer (tramp-get-buffer multi-method method user host)) |
4478 |
(when (> (tramp-time-diff tramp-last-cmd-time (current-time)) 60) |
(when (> (tramp-time-diff tramp-last-cmd-time (current-time)) 60) |
4479 |
(process-send-string p (concat "echo hello" tramp-rsh-end-of-line)) |
(process-send-string p (concat "echo hello" tramp-rsh-end-of-line)) |
4480 |
(if (accept-process-output p 2) |
(unless (accept-process-output p 2) |
|
(erase-buffer) |
|
4481 |
(delete-process p) |
(delete-process p) |
4482 |
(setq p nil)))) |
(setq p nil)) |
4483 |
|
(erase-buffer))) |
4484 |
(unless (and p (processp p) (memq (process-status p) '(run open))) |
(unless (and p (processp p) (memq (process-status p) '(run open))) |
4485 |
(when (and p (processp p)) |
(when (and p (processp p)) |
4486 |
(delete-process p)) |
(delete-process p)) |