Bail out from list-processes if async subprocesses aren't available.

 lisp/simple.el (list-processes): If async subprocesses are not
 available, error out with a clear error message.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d17c981..d93dd27 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-08  Eli Zaretskii  <eliz@gnu.org>
+
+       * simple.el (list-processes): If async subprocesses are not
+       available, error out with a clear error message.
+
 2011-04-08  Chong Yidong  <cyd@stupidchicken.com>
 
        * help.el (help-form-show): New function, to be called from C.

diff --git a/lisp/simple.el b/lisp/simple.el
index a9a5b50..f0560c4 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2769,6 +2769,8 @@ Optional argument BUFFER specifies a buffer to use, instead of
 \"*Process List\".
 The return value is always nil."
   (interactive)
+  (or (fboundp 'process-list)
+      (error "Asynchronous subprocesses are not supported on this system"))
   (unless (bufferp buffer)
     (setq buffer (get-buffer-create "*Process List*")))
   (with-current-buffer buffer