diff options
author | Eli Zaretskii <eliz@gnu.org> | 2002-01-26 12:06:47 +0000 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2002-01-26 12:06:47 +0000 |
commit | 4c334f5b1550568ac7adbeaa5056f0bd244b704c (patch) | |
tree | 0d2975eb02972e8b415b565a6a4f9416a900d9e7 /lisp | |
parent | 990d68dde9a0d5ab0900b4429b947ac33eb8b6e7 (diff) | |
download | emacs-4c334f5b1550568ac7adbeaa5056f0bd244b704c.tar.gz emacs-4c334f5b1550568ac7adbeaa5056f0bd244b704c.tar.bz2 emacs-4c334f5b1550568ac7adbeaa5056f0bd244b704c.zip |
(eshell-eval-command): If eshell-resume-eval
returns t, don't treat that as an error.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/eshell/esh-cmd.el | 4 |
2 files changed, 8 insertions, 1 deletions
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 <eliz@is.elta.co.il> + + * 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 <jasonr@gnu.org> * 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) |