diff options
| author | Po Lu | 2021-12-12 15:50:28 +0800 |
|---|---|---|
| committer | Po Lu | 2021-12-12 15:50:28 +0800 |
| commit | 64ea1a178c6cb3a436eeb6783237bd603be4f5e4 (patch) | |
| tree | de1491c84e233736e90f9d00c564557f42fb7316 | |
| parent | 8a0734329a4faf0b45627763af74222bdd0ec143 (diff) | |
| download | emacs-64ea1a178c6cb3a436eeb6783237bd603be4f5e4.tar.gz emacs-64ea1a178c6cb3a436eeb6783237bd603be4f5e4.zip | |
Fix eshell for systems that do not have subprocesses
* lisp/eshell/esh-cmd.el (eshell-eval-command): Use
`eshell-processp' instead of `processp'.
| -rw-r--r-- | lisp/eshell/esh-cmd.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el index a2464ad4a98..213b7ab2893 100644 --- a/lisp/eshell/esh-cmd.el +++ b/lisp/eshell/esh-cmd.el | |||
| @@ -945,12 +945,12 @@ at the moment are: | |||
| 945 | ;; In that case, unwrap the value before checking the delimiter | 945 | ;; In that case, unwrap the value before checking the delimiter |
| 946 | ;; value. | 946 | ;; value. |
| 947 | (if (and val | 947 | (if (and val |
| 948 | (not (processp val)) | 948 | (not (eshell-processp val)) |
| 949 | (not (eq val t))) | 949 | (not (eq val t))) |
| 950 | (error "Unmatched delimiter: %S" val) | 950 | (error "Unmatched delimiter: %S" val) |
| 951 | ;; Eshell-command expect a list like (<process>) to know if the | 951 | ;; Eshell-command expect a list like (<process>) to know if the |
| 952 | ;; command should be async or not. | 952 | ;; command should be async or not. |
| 953 | (or (and (processp val) delim) val))))) | 953 | (or (and (eshell-processp val) delim) val))))) |
| 954 | 954 | ||
| 955 | (defun eshell-resume-command (proc status) | 955 | (defun eshell-resume-command (proc status) |
| 956 | "Resume the current command when a process ends." | 956 | "Resume the current command when a process ends." |