757 |
|
|
758 |
(defmacro eshell-do-subjob (object) |
(defmacro eshell-do-subjob (object) |
759 |
"Evaluate a command OBJECT as a subjob. |
"Evaluate a command OBJECT as a subjob. |
760 |
We indicate thet the process was run in the background by returned it |
We indicate that the process was run in the background by returning it |
761 |
ensconced in a list." |
ensconced in a list." |
762 |
`(let ((eshell-current-subjob-p t)) |
`(let ((eshell-current-subjob-p t)) |
763 |
,object)) |
,object)) |
1006 |
(eshell-resume-eval)))) |
(eshell-resume-eval)))) |
1007 |
;; On systems that don't support async subprocesses, eshell-resume |
;; On systems that don't support async subprocesses, eshell-resume |
1008 |
;; can return t. Don't treat that as an error. |
;; can return t. Don't treat that as an error. |
1009 |
|
(if (listp delim) |
1010 |
|
(setq delim (car delim))) |
1011 |
(if (and delim (not (eq delim t))) |
(if (and delim (not (eq delim t))) |
1012 |
(error "Unmatched delimiter: %c" |
(error "Unmatched delimiter: %c" delim))))) |
|
(if (listp delim) |
|
|
(car delim) |
|
|
delim)))))) |
|
1013 |
|
|
1014 |
(defun eshell-resume-command (proc status) |
(defun eshell-resume-command (proc status) |
1015 |
"Resume the current command when a process ends." |
"Resume the current command when a process ends." |