Mercurial > emacs
comparison lisp/eshell/esh-cmd.el @ 42971:a4e7fd8ad209
(eshell-eval-command): If eshell-resume-eval
returns t, don't treat that as an error.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 26 Jan 2002 12:05:22 +0000 |
| parents | 67b464da13ec |
| children | bb0835bc6023 |
comparison
equal
deleted
inserted
replaced
| 42970:8b1bab5b4e0b | 42971:a4e7fd8ad209 |
|---|---|
| 1006 (erase-buffer) | 1006 (erase-buffer) |
| 1007 (insert "command: \"" input "\"\n")))) | 1007 (insert "command: \"" input "\"\n")))) |
| 1008 (setq eshell-current-command command) | 1008 (setq eshell-current-command command) |
| 1009 (let ((delim (catch 'eshell-incomplete | 1009 (let ((delim (catch 'eshell-incomplete |
| 1010 (eshell-resume-eval)))) | 1010 (eshell-resume-eval)))) |
| 1011 (if delim | 1011 ;; On systems that don't support async subprocesses, eshell-resume |
| 1012 ;; can return t. Don't treat that as an error. | |
| 1013 (if (and delim (not (eq delim t))) | |
| 1012 (error "Unmatched delimiter: %c" | 1014 (error "Unmatched delimiter: %c" |
| 1013 (if (listp delim) | 1015 (if (listp delim) |
| 1014 (car delim) | 1016 (car delim) |
| 1015 delim)))))) | 1017 delim)))))) |
| 1016 | 1018 |