From 6cddb736e404f7f4bf15f6644a003aadd56685c2 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 12 Aug 2020 18:09:24 +0200 Subject: [PATCH] Check make-process to determine if we support multi-processing * lisp/eshell/esh-proc.el (eshell-gather-process-output): * lisp/comint.el (make-comint-in-buffer): Check that make-process exists instead of start-file-process (which always exists). --- lisp/comint.el | 2 +- lisp/eshell/esh-proc.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/comint.el b/lisp/comint.el index df947b93afa..c3cb439d8b8 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -735,7 +735,7 @@ contents are sent to the process as its initial input. If PROGRAM is a string, any more args are arguments to PROGRAM. Return the (possibly newly created) process buffer." - (or (fboundp 'start-file-process) + (or (fboundp 'make-process) (error "Multi-processing is not supported for this system")) (setq buffer (get-buffer-create (or buffer (concat "*" name "*")))) ;; If no process, or nuked process, crank up a new one and put buffer in diff --git a/lisp/eshell/esh-proc.el b/lisp/eshell/esh-proc.el index d2c17fe1f77..db1b258c8f5 100644 --- a/lisp/eshell/esh-proc.el +++ b/lisp/eshell/esh-proc.el @@ -295,7 +295,7 @@ See `eshell-needs-pipe'." (process-environment (eshell-environment-variables)) proc decoding encoding changed) (cond - ((fboundp 'start-file-process) + ((fboundp 'make-process) (setq proc (let ((process-connection-type (unless (eshell-needs-pipe-p command) -- 2.39.5