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).

diff --git a/lisp/comint.el b/lisp/comint.el
index df947b93afadb4701fdef6985aea9f4c6103a160..c3cb439d8b817bd12834bd56ca7c8a9035c9ce18 100644 (file)
--- 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 d2c17fe1f7748111529553895cb2cecafbb5d7fe..db1b258c8f582336ecb8902f2aae7b69d0058418 100644 (file)
--- 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)