From: Juri Linkov <juri@linkov.net>
Date: Tue, 25 Feb 2020 00:22:29 +0000 (+0200)
Subject: * lisp/comint.el (comint-redirect-setup): Guard mode-line-process (bug#39705)
X-Git-Tag: emacs-28.0.90~7839
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=29eb93e3c3ad98027837a11ea3433d9d9b2dfc2f;p=emacs.git

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

diff --git a/lisp/comint.el b/lisp/comint.el
index 5c521ff0fdf..ea06f8af87d 100644
--- 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")))))