mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

Make eshell-mode more resilient towards `mode-line-format'

Browse Source 
* lisp/eshell/esh-mode.el (eshell-mode): `mode-line-format' can be
a string (bug#57185).  In that case, don't alter anything.
This commit is contained in:
Lars Ingebrigtsen 2022-08-15 09:27:13 +02:00
parent 79c0e78460
commit 20b8ac5723
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/eshell/esh-mode.el
View File

@ -301,7 +301,8 @@ and the hook `eshell-exit-hook'."
"Emacs shell interactive mode."
(setq-local eshell-mode t)
(when eshell-status-in-mode-line
(when (and eshell-status-in-mode-line
(listp mode-line-format))
(make-local-variable 'eshell-command-running-string)
(let ((fmt (copy-sequence mode-line-format)))
(setq-local mode-line-format fmt))