From: Jim Porter <jporterbugs@gmail.com>
Date: Tue, 21 Mar 2023 00:24:28 +0000 (-0700)
Subject: ; Fix an edge case in how 'eshell-do-eval' handles 'let' bodies
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5b005f26a831881b0509f05d3b28dafbbe5bad41;p=emacs.git

; Fix an edge case in how 'eshell-do-eval' handles 'let' bodies

* lisp/eshell/esh-cmd.el (ehell-do-eval): Use 'car-safe'; the object
in question might not be a cons cell.
---

diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el
index 93f2616020c..e0651b76249 100644
--- a/lisp/eshell/esh-cmd.el
+++ b/lisp/eshell/esh-cmd.el
@@ -1168,7 +1168,7 @@ have been replaced by constants."
 	(setcar (cdr args) (eshell-do-eval (cadr args) synchronous-p))
 	(eval form))
        ((eq (car form) 'let)
-        (when (not (eq (car (cadr args)) 'eshell-do-eval))
+        (unless (eq (car-safe (cadr args)) 'eshell-do-eval)
           (eshell-manipulate "evaluating let args"
             (dolist (letarg (car args))
               (when (and (listp letarg)