From 499dd578d8072e56d1268797d5407d021c4f1d93 Mon Sep 17 00:00:00 2001 From: Jim Porter Date: Mon, 20 Mar 2023 17:24:28 -0700 Subject: [PATCH 1/3] ; 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 @@ eshell-do-eval (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) -- 2.25.1