emacs-31 a027452c715: Fix progress-reporter-echo-area update-text

branch: emacs-31
commit a027452c71555fa8916cdadbec5343d4c7920e6d
Author: Stéphane Marks <[email protected]>
Commit: Sean Whitton <[email protected]>

    Fix progress-reporter-echo-area update-text
    
    * lisp/subr.el (progress-reporter-echo-area): Format UPDATE-TEXT
    as a string (bug#81514).
---
 lisp/subr.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/subr.el b/lisp/subr.el
index a9924445ada..b465738f106 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -7240,7 +7240,7 @@ area is busy with something else."
     (unless (and (eq (progress-reporter-context reporter) 'async)
                  (current-message)
                  (not (string-prefix-p text (current-message))))
-      (setq update-text (concat (if update-text " " "") update-text))
+      (setq update-text (if update-text (format " %s" update-text) ""))
       (pcase state
         ((pred floatp)
          (if (plusp state)