[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 29eb93e: * lisp/comint.el (comint-redirect-setup): Guard mode-lin
From: |
Juri Linkov |
Subject: |
master 29eb93e: * lisp/comint.el (comint-redirect-setup): Guard mode-line-process (bug#39705) |
Date: |
Mon, 24 Feb 2020 19:22:39 -0500 (EST) |
branch: master
commit 29eb93e3c3ad98027837a11ea3433d9d9b2dfc2f
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>
* 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 5c521ff..ea06f8a 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")))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 29eb93e: * lisp/comint.el (comint-redirect-setup): Guard mode-line-process (bug#39705),
Juri Linkov <=