* lisp/comint.el (comint-redirect-setup): Guard mode-line-process (bug#39705)

diff --git a/lisp/comint.el b/lisp/comint.el
index 5c521ff0fdf63e71f2ce3dc6fa4a2128987d8ffe..ea06f8af87db8a7b43602a8946c7fbca893b79ec 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -3641,7 +3641,7 @@ and does not normally need to be invoked by the end user or programmer."
     (setq-local comint-redirect-previous-input-string "")
 
     (setq mode-line-process
-         (if mode-line-process
+         (if (and mode-line-process (stringp (elt mode-line-process 0)))
              (list (concat (elt mode-line-process 0) " Redirection"))
            (list ":%s Redirection")))))