* net/tramp-adb.el (tramp-adb-parse-device-names)

(tramp-adb-maybe-open-connection): Add timeouts.  (Bug#13299)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c5a902d644286aa7e7328b8d8c997621d4e4758d..e69c6be3dcb94b31b7104cfdaa947c77f2dd09be 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-02-27  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp-adb.el (tramp-adb-parse-device-names)
+       (tramp-adb-maybe-open-connection): Add timeouts.  (Bug#13299)
+
 2013-02-26  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp-sh.el (tramp-sh-handle-insert-directory): Add

diff --git a/lisp/net/tramp-adb.el b/lisp/net/tramp-adb.el
index 0974c62c56eea6b6bd897f2159f70e6421d8c640..809623280bcdc3303ff0db2428f6647875cdd2c0 100644 (file)
--- a/lisp/net/tramp-adb.el
+++ b/lisp/net/tramp-adb.el
@@ -157,13 +157,14 @@ pass to the OPERATION."
 ;;;###tramp-autoload
 (defun tramp-adb-parse-device-names (ignore)
   "Return a list of (nil host) tuples allowed to access."
-  (with-temp-buffer
-    (when (zerop (call-process (tramp-adb-program) nil t nil "devices"))
-      (let (result)
-       (goto-char (point-min))
-       (while (search-forward-regexp "^\\(\\S-+\\)[[:space:]]+device$" nil t)
-         (add-to-list 'result (list nil (match-string 1))))
-       result))))
+  (with-timeout (10)
+    (with-temp-buffer
+      (when (zerop (call-process (tramp-adb-program) nil t nil "devices"))
+       (let (result)
+         (goto-char (point-min))
+         (while (search-forward-regexp "^\\(\\S-+\\)[[:space:]]+device$" nil t)
+           (add-to-list 'result (list nil (match-string 1))))
+         result)))))
 
 (defun tramp-adb-handle-expand-file-name (name &optional dir)
   "Like `expand-file-name' for Tramp files."
@@ -1106,7 +1107,7 @@ connection if a previous connection has died for some reason."
            (tramp-message
             vec 6 "%s" (mapconcat 'identity (process-command p) " "))
            ;; Wait for initial prompt.
-           (tramp-adb-wait-for-output p)
+           (tramp-adb-wait-for-output p 30)
            (unless (eq 'run (process-status p))
              (tramp-error  vec 'file-error "Terminated!"))
            (tramp-compat-set-process-query-on-exit-flag p nil)