; * test/infra/android/test-controller.el: Fix typos.

(cherry picked from commit 7ae069b676a19d9a477d629403e2ff236a5303af)

diff --git a/test/infra/android/test-controller.el b/test/infra/android/test-controller.el
index f17d58e415e1c11ddae2e7d3ed8c71a30defb7e3..38d486c3c029e6bd55830eed1e28f227bf81df29 100644 (file)
--- a/test/infra/android/test-controller.el
+++ b/test/infra/android/test-controller.el
@@ -2502,7 +2502,7 @@ Call this function from the command line, with, for example:
     (let ((nth 0))
       (dolist (device devices)
        (message "%2d. %-24s(API level %d, %s)"
-                (incf nth) (car device)
+                (setq nth (1+ nth)) (car device)
                 (ats-get-sdk-version (car device))
                 (ats-getprop (car device) "ro.product.cpu.abi"))))
     (let* ((number (string-to-number
@@ -2511,10 +2511,10 @@ Call this function from the command line, with, for example:
           (device (if (or (< number 1) (> number (length devices)))
                       (user-error "Invalid selection: %s" number)
                     (car (nth (1- number) devices))))
-          (users (ats-list-users device)))
-      (setq nth 0)
+          (users (ats-list-users device))
+          (nth 0))
       (dolist (user users)
-       (message "%2d. %s (id=%d)" (incf nth)
+       (message "%2d. %s (id=%d)" (setq nth (1+ nth))
                 (cadr user) (car user)))
       (setq number (string-to-number
                    (read-string