master 5b005f26a83 1/3: ; Fix an edge case in how 'eshell-do-eval' handles 'let' bodies

[Jim Porter]

branch: master
commit 5b005f26a831881b0509f05d3b28dafbbe5bad41
Author: Jim Porter <jporterbugs@gmail.com>
Commit: Jim Porter <jporterbugs@gmail.com>

    ; 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.
---
 lisp/eshell/esh-cmd.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)