From 4c334f5b1550568ac7adbeaa5056f0bd244b704c Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 26 Jan 2002 12:06:47 +0000 Subject: [PATCH] (eshell-eval-command): If eshell-resume-eval returns t, don't treat that as an error. --- lisp/ChangeLog | 5 +++++ lisp/eshell/esh-cmd.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 02d9a949e40..ce93a6c126f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-01-26 Eli Zaretskii + + * eshell/esh-cmd.el (eshell-eval-command): If eshell-resume-eval + returns t, don't treat that as an error. + 2002-01-25 Jason Rumney * faces.el (face-font-registry-alternatives) [windows-nt]: Add diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el index c5c61d311ed..7793f87e4eb 100644 --- a/lisp/eshell/esh-cmd.el +++ b/lisp/eshell/esh-cmd.el @@ -1008,7 +1008,9 @@ at the moment are: (setq eshell-current-command command) (let ((delim (catch 'eshell-incomplete (eshell-resume-eval)))) - (if delim + ;; On systems that don't support async subprocesses, eshell-resume + ;; can return t. Don't treat that as an error. + (if (and delim (not (eq delim t))) (error "Unmatched delimiter: %c" (if (listp delim) (car delim) -- 2.39.5