diff options
| author | Juri Linkov | 2020-02-25 02:22:29 +0200 |
|---|---|---|
| committer | Juri Linkov | 2020-02-25 02:22:29 +0200 |
| commit | 29eb93e3c3ad98027837a11ea3433d9d9b2dfc2f (patch) | |
| tree | d462583b5a42d347a08c9182eca821654f9dd245 /lisp | |
| parent | 7dfe90a666ab6b90597e3ee61c141da088da340c (diff) | |
| download | emacs-29eb93e3c3ad98027837a11ea3433d9d9b2dfc2f.tar.gz emacs-29eb93e3c3ad98027837a11ea3433d9d9b2dfc2f.zip | |
* lisp/comint.el (comint-redirect-setup): Guard mode-line-process (bug#39705)
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/comint.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 3641 | (setq-local comint-redirect-previous-input-string "") | 3641 | (setq-local comint-redirect-previous-input-string "") |
| 3642 | 3642 | ||
| 3643 | (setq mode-line-process | 3643 | (setq mode-line-process |
| 3644 | (if mode-line-process | 3644 | (if (and mode-line-process (stringp (elt mode-line-process 0))) |
| 3645 | (list (concat (elt mode-line-process 0) " Redirection")) | 3645 | (list (concat (elt mode-line-process 0) " Redirection")) |
| 3646 | (list ":%s Redirection"))))) | 3646 | (list ":%s Redirection"))))) |
| 3647 | 3647 | ||