From 29eb93e3c3ad98027837a11ea3433d9d9b2dfc2f Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 25 Feb 2020 02:22:29 +0200 Subject: [PATCH] * lisp/comint.el (comint-redirect-setup): Guard mode-line-process (bug#39705) --- lisp/comint.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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"))))) -- 2.39.2