From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 24 Nov 2021 17:38:14 +0000 (+0100)
Subject: Change eshell-mode mode-line-format insinuation
X-Git-Tag: emacs-29.0.90~2852^2~58
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=34f2878ce25a74c1283266b67575a56554684be5;p=emacs.git

Change eshell-mode mode-line-format insinuation

* lisp/eshell/esh-mode.el (eshell-mode): Tweak how the mode line
is altered after recent mode-line-format changes.
---

diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el
index a054cd66e27..cae5236d894 100644
--- a/lisp/eshell/esh-mode.el
+++ b/lisp/eshell/esh-mode.el
@@ -308,7 +308,7 @@ and the hook `eshell-exit-hook'."
     (make-local-variable 'eshell-command-running-string)
     (let ((fmt (copy-sequence mode-line-format)))
       (setq-local mode-line-format fmt))
-    (let ((mode-line-elt (memq 'mode-line-modified mode-line-format)))
+    (let ((mode-line-elt (cdr (memq 'mode-line-front-space mode-line-format))))
       (if mode-line-elt
 	  (setcar mode-line-elt 'eshell-command-running-string))))