From 980265ac05be9e346709912ace8c7a0e30bc5efc Mon Sep 17 00:00:00 2001
From: Akib Azmain Turja <akib@disroot.org>
Date: Thu, 8 Dec 2022 17:00:12 +0600
Subject: [PATCH] Don't 'cd' as root when using 'sudo' from Tramp

* eat.el (eat--eshell-setup-proc-and-term): Don't set
'eat--eshell-invocation-directory'.
* eat.el (eat--eshell-update-cwd): New function.
* eat.el (eat--eshell-local-mode): Call
'eat--eshell-update-cwd' when enabling the mode and add it to
'eshell-directory-change-hook' to keep track of Eshell's
working directory.
---
 eat.el | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/eat.el b/eat.el
index 65a1067..56ebdcb 100644
--- a/eat.el
+++ b/eat.el
@@ -5342,8 +5342,7 @@ PROGRAM can be a shell command."
 (defun eat--eshell-setup-proc-and-term (proc)
   "Setup process PROC and a new terminal for it."
   (unless (or eat--terminal eat--process)
-    (setq eat--process proc
-          eat--eshell-invocation-directory default-directory)
+    (setq eat--process proc)
     (process-put proc 'adjust-window-size-function
                  #'eat--adjust-process-window-size)
     (setq eat--terminal (eat-term-make (current-buffer)
@@ -5523,6 +5522,10 @@ sane 2>%s ; if [ $1 = .. ]; then shift; fi; exec \"$@\""
              (point)))))))
   (goto-char (eat-term-display-cursor eat--terminal)))
 
+(defun eat--eshell-update-cwd ()
+  "Update the current working directory."
+  (setq eat--eshell-invocation-directory default-directory))
+
 (define-minor-mode eat--eshell-local-mode
   "Toggle Eat terminal emulation is Eshell."
   :interactive nil
@@ -5640,6 +5643,8 @@ sane 2>%s ; if [ $1 = .. ]; then shift; fi; exec \"$@\""
         (with-current-buffer buffer
           (eat--eshell-local-mode +1))))
     (add-hook 'eshell-mode-hook #'eat--eshell-local-mode)
+    (add-hook 'eshell-directory-change-hook #'eat--eshell-update-cwd)
+    (eat--eshell-update-cwd)
     (setq eshell-variable-aliases-list
           `(("TERM" eat--eshell-term-name t)
             ("TERMINFO" eat-term-terminfo-directory t)
@@ -5668,6 +5673,8 @@ sane 2>%s ; if [ $1 = .. ]; then shift; fi; exec \"$@\""
         (with-current-buffer buffer
           (eat--eshell-local-mode -1))))
     (remove-hook 'eshell-mode-hook #'eat--eshell-local-mode)
+    (remove-hook 'eshell-directory-change-hook
+                 #'eat--eshell-update-cwd)
     (setq eshell-variable-aliases-list
           (cl-delete-if
            (lambda (elem)