1008 |
(setq eshell-current-command command) |
(setq eshell-current-command command) |
1009 |
(let ((delim (catch 'eshell-incomplete |
(let ((delim (catch 'eshell-incomplete |
1010 |
(eshell-resume-eval)))) |
(eshell-resume-eval)))) |
1011 |
(if delim |
;; 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))) |
1014 |
(error "Unmatched delimiter: %c" |
(error "Unmatched delimiter: %c" |
1015 |
(if (listp delim) |
(if (listp delim) |
1016 |
(car delim) |
(car delim) |