Add progress message during gptel sync wait loop

Author: Kang Tu

ai-code-prompt-mode.el

@@ -331,14 +331,19 @@ Only works when gptel package is installed, otherwise shows error message."
               (while (not done)
                 (when quit-flag
                   (keyboard-quit))
+                ;; Show progress without flooding the *Messages* log.
+                (let ((message-log-max nil))
+                  (message "Waiting for GPTel response... %ds (C-g to cancel)"
+                           (floor (- (float-time) start-time))))
                 (when (> (- (float-time) start-time) ai-code-gptel-sync-timeout)
                   ;; Try to abort any running processes
                   (gptel-abort temp-buffer)
                   (setq done t
                         error-info (format "Request timed out after %d seconds" ai-code-gptel-sync-timeout)))
                 ;; Use sit-for to process events and allow interruption
                 (sit-for 0.1)))
-          ;; Clean up temp buffer
+          ;; Clear the progress message and clean up temp buffer
+          (message nil)
           (when (buffer-live-p temp-buffer)
             (kill-buffer temp-buffer)))
         (cond

test/test_ai-code-prompt-mode.el

@@ -235,6 +235,35 @@ tools on the user's machine, so tool use is suppressed for the request."
              "Truncated"
              (ai-code-test--gptel-sync-error-message "Truncate this prompt")))))
 
+(ert-deftest ai-code-test-call-gptel-sync-shows-waiting-message ()
+  "The blocking wait should show progress and clear it afterwards.
+The progress message must stay out of the *Messages* log."
+  (let ((callback nil)
+        (messages nil)
+        (logged-waiting nil))
+    (ai-code-test-with-stub-gptel
+        (lambda (_question &rest args)
+          (setq callback (plist-get args :callback)))
+      (cl-letf (((symbol-function 'sit-for)
+                 (lambda (&rest _args)
+                   (funcall callback "ANSWER"
+                            '(:status "HTTP/2 200" :error nil))))
+                ((symbol-function 'message)
+                 (lambda (format-string &rest args)
+                   (let ((text (and format-string
+                                    (apply #'format format-string args))))
+                     (when (and text message-log-max
+                                (string-match-p "GPTel" text))
+                       (setq logged-waiting t))
+                     (push text messages)))))
+        (should (equal "ANSWER" (ai-code-call-gptel-sync "Question")))))
+    (should (cl-some (lambda (text)
+                       (and text (string-match-p "Waiting for GPTel" text)))
+                     messages))
+    (should-not logged-waiting)
+    ;; The most recent message call clears the echo area.
+    (should (null (car messages)))))
+
 (ert-deftest ai-code-test-custom-prompt-suffix-provider-respects-switch ()
   "The custom suffix provider should honor the legacy suffix switch."
   (let ((ai-code-prompt-suffix-functions