aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJim Porter2023-09-13 12:46:58 -0700
committerJim Porter2023-09-13 12:48:52 -0700
commit922d76e85615b39a9262d0f2c629dfd7e67b9e52 (patch)
tree6630db28bfdaf712acc8909a2009deaef90f8566
parent4b44178e722a98b6844b045271e4b04e76469607 (diff)
downloademacs-922d76e85615b39a9262d0f2c629dfd7e67b9e52.tar.gz
emacs-922d76e85615b39a9262d0f2c629dfd7e67b9e52.zip
; Fix an Eshell error when calling a lambda with form logging enabled
* lisp/eshell/esh-cmd.el (eshell-do-eval): Don't call 'symbol-name'; the function might be a closure.
-rw-r--r--lisp/eshell/esh-cmd.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el
index 95e9e2599e9..e5ddcfcaa35 100644
--- a/lisp/eshell/esh-cmd.el
+++ b/lisp/eshell/esh-cmd.el
@@ -1180,7 +1180,7 @@ have been replaced by constants."
1180 (if (and args (not (memq (car form) '(run-hooks)))) 1180 (if (and args (not (memq (car form) '(run-hooks))))
1181 (eshell-manipulate form 1181 (eshell-manipulate form
1182 (format-message "evaluating arguments to `%s'" 1182 (format-message "evaluating arguments to `%s'"
1183 (symbol-name (car form))) 1183 (car form))
1184 (while args 1184 (while args
1185 (setcar args (eshell-do-eval (car args) synchronous-p)) 1185 (setcar args (eshell-do-eval (car args) synchronous-p))
1186 (setq args (cdr args))))) 1186 (setq args (cdr args)))))