diff options
| author | John Wiegley | 2005-05-27 02:57:18 +0000 |
|---|---|---|
| committer | John Wiegley | 2005-05-27 02:57:18 +0000 |
| commit | 6b6f91b357f6fe2f1e0d72f046a1b8d8a2d6d8c3 (patch) | |
| tree | cea28fba7cc58871cf937fd7799bd44e8b8834da /lisp | |
| parent | 9c041409339fbd92ca875ba034bcf8ca3410330e (diff) | |
| download | emacs-6b6f91b357f6fe2f1e0d72f046a1b8d8a2d6d8c3.tar.gz emacs-6b6f91b357f6fe2f1e0d72f046a1b8d8a2d6d8c3.zip | |
(eshell-eval-command): If the return value of `eshell-resume-eval' is
wrapped in a list, it indicates that the command was run
asynchronously. In that case, unwrap the value before checking the
delimiter value.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/eshell/esh-cmd.el | 9 |
2 files changed, 9 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2795764f959..fd18c875ada 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,10 @@ | |||
| 1 | 2005-05-26 John Wiegley <johnw@newartisans.com> | 1 | 2005-05-26 John Wiegley <johnw@newartisans.com> |
| 2 | 2 | ||
| 3 | * eshell/esh-cmd.el (eshell-eval-command): If the return value of | ||
| 4 | `eshell-resume-eval' is wrapped in a list, it indicates that the | ||
| 5 | command was run asynchronously. In that case, unwrap the value | ||
| 6 | before checking the delimiter value. | ||
| 7 | |||
| 3 | * eshell/em-cmpl.el (eshell-complete-parse-arguments): If the | 8 | * eshell/em-cmpl.el (eshell-complete-parse-arguments): If the |
| 4 | character before a space at the end of a line is \, assume the | 9 | character before a space at the end of a line is \, assume the |
| 5 | space is part of the last argument rather than a final argument | 10 | space is part of the last argument rather than a final argument |
diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el index d7c65066ac6..355369d35ae 100644 --- a/lisp/eshell/esh-cmd.el +++ b/lisp/eshell/esh-cmd.el | |||
| @@ -757,7 +757,7 @@ nil)' if none)." | |||
| 757 | 757 | ||
| 758 | (defmacro eshell-do-subjob (object) | 758 | (defmacro eshell-do-subjob (object) |
| 759 | "Evaluate a command OBJECT as a subjob. | 759 | "Evaluate a command OBJECT as a subjob. |
| 760 | We indicate thet the process was run in the background by returned it | 760 | We indicate that the process was run in the background by returning it |
| 761 | ensconced in a list." | 761 | ensconced in a list." |
| 762 | `(let ((eshell-current-subjob-p t)) | 762 | `(let ((eshell-current-subjob-p t)) |
| 763 | ,object)) | 763 | ,object)) |
| @@ -1006,11 +1006,10 @@ at the moment are: | |||
| 1006 | (eshell-resume-eval)))) | 1006 | (eshell-resume-eval)))) |
| 1007 | ;; On systems that don't support async subprocesses, eshell-resume | 1007 | ;; On systems that don't support async subprocesses, eshell-resume |
| 1008 | ;; can return t. Don't treat that as an error. | 1008 | ;; can return t. Don't treat that as an error. |
| 1009 | (if (listp delim) | ||
| 1010 | (setq delim (car delim))) | ||
| 1009 | (if (and delim (not (eq delim t))) | 1011 | (if (and delim (not (eq delim t))) |
| 1010 | (error "Unmatched delimiter: %c" | 1012 | (error "Unmatched delimiter: %c" delim))))) |
| 1011 | (if (listp delim) | ||
| 1012 | (car delim) | ||
| 1013 | delim)))))) | ||
| 1014 | 1013 | ||
| 1015 | (defun eshell-resume-command (proc status) | 1014 | (defun eshell-resume-command (proc status) |
| 1016 | "Resume the current command when a process ends." | 1015 | "Resume the current command when a process ends." |