From: Po Lu <luangruo@yahoo.com>
Date: Wed, 26 Feb 2025 13:22:03 +0000 (+0800)
Subject: ; * test/infra/android/test-controller.el: Fix typos.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5fcfaaf7592e3fbdade85d1c12384f9de108540f;p=emacs.git

; * 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 f17d58e415e..38d486c3c02 100644
--- 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