]> git.eshelyaron.com Git - emacs.git/commitdiff
Change eshell-mode mode-line-format insinuation
authorLars Ingebrigtsen <larsi@gnus.org>
Wed, 24 Nov 2021 17:38:14 +0000 (18:38 +0100)
committerLars Ingebrigtsen <larsi@gnus.org>
Wed, 24 Nov 2021 17:38:14 +0000 (18:38 +0100)
* lisp/eshell/esh-mode.el (eshell-mode): Tweak how the mode line
is altered after recent mode-line-format changes.

lisp/eshell/esh-mode.el

index a054cd66e272f391c3e154bacef7095fd01659b0..cae5236d89447e11271e49871b52faf2170a7e4b 100644 (file)
@@ -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))))