Mercurial > emacs
changeset 84942:437d3bb02139
* net/tramp.el (tramp-maybe-open-connection): Make test for alive
connection more robust.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Thu, 27 Sep 2007 04:37:33 +0000 |
| parents | 89bab9e0761d |
| children | edbd4ad65565 |
| files | lisp/ChangeLog lisp/net/tramp.el |
| diffstat | 2 files changed, 25 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Sep 26 15:59:13 2007 +0000 +++ b/lisp/ChangeLog Thu Sep 27 04:37:33 2007 +0000 @@ -1,3 +1,8 @@ +2007-09-27 Michael Albinus <michael.albinus@gmx.de> + + * net/tramp.el (tramp-maybe-open-connection): Make test for alive + connection more robust. + 2007-09-26 Juanma Barranquero <lekktu@gmail.com> * emacs-lisp/eldoc.el (eldoc-function-argstring-format):
--- a/lisp/net/tramp.el Wed Sep 26 15:59:13 2007 +0000 +++ b/lisp/net/tramp.el Thu Sep 27 04:37:33 2007 +0000 @@ -2422,7 +2422,7 @@ res-size ;; 8. File modes, as a string of ten letters or dashes as in ls -l. res-filemodes - ;; 9. t iff file's gid would change if file were deleted and + ;; 9. t if file's gid would change if file were deleted and ;; recreated. Will be set in `tramp-convert-file-attributes' t ;; 10. inode number. @@ -5688,9 +5688,7 @@ (tramp-send-command-internal vec "set +o vi +o emacs") (tramp-message vec 5 "Setting shell prompt") ;; Douglas Gray Stephens <DGrayStephens@slb.com> says that we must - ;; use "\n" here, not tramp-rsh-end-of-line. We also manually frob - ;; the last time we sent a command, to avoid `tramp-send-command' to - ;; send "echo are you awake". + ;; use "\n" here, not tramp-rsh-end-of-line. (tramp-send-command vec (format "PROMPT_COMMAND=''; PS1='%s%s%s'; PS2=''; PS3=''" @@ -6044,16 +6042,23 @@ ;; tries to send some data to the remote end. So that's why we ;; try to send a command from time to time, then look again ;; whether the process is really alive. - (when (and (> (tramp-time-diff - (current-time) - (tramp-get-connection-property p "last-cmd-time" '(0 0 0))) - 60) - p (processp p) (memq (process-status p) '(run open))) - (tramp-send-command vec "echo are you awake" t t) - (unless (and (memq (process-status p) '(run open)) - (tramp-wait-for-output p 10)) - (delete-process p) - (setq p nil))) + (condition-case nil + (when (and (> (tramp-time-diff + (current-time) + (tramp-get-connection-property + p "last-cmd-time" '(0 0 0))) + 60) + p (processp p) (memq (process-status p) '(run open))) + (tramp-send-command vec "echo are you awake" t t) + (unless (and (memq (process-status p) '(run open)) + (tramp-wait-for-output p 10)) + ;; The error will be catched locally. + (tramp-error vec 'file-error "Awake did fail"))) + (file-error + (tramp-flush-connection-property vec nil) + (tramp-flush-connection-property p nil) + (delete-process p) + (setq p nil))) ;; New connection must be opened. (unless (and p (processp p) (memq (process-status p) '(run open))) @@ -6571,7 +6576,7 @@ (string-to-number (match-string 2 host))))) (defun tramp-tramp-file-p (name) - "Return t iff NAME is a tramp file." + "Return t if NAME is a tramp file." (save-match-data (string-match tramp-file-name-regexp name)))