[Emacs-diffs] /srv/bzr/emacs/trunk r103871: Bail out from list-processes if async subprocesses aren't available.

[Eli Zaretskii]

------------------------------------------------------------
revno: 103871
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Fri 2011-04-08 20:08:17 +0300
message:
  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.
modified:
  lisp/ChangeLog
  lisp/simple.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-04-08 15:37:15 +0000
+++ b/lisp/ChangeLog    2011-04-08 17:08:17 +0000
@@ -1,3 +1,8 @@
+2011-04-08  Eli Zaretskii  <address@hidden>
+
+       * simple.el (list-processes): If async subprocesses are not
+       available, error out with a clear error message.
+
 2011-04-08  Chong Yidong  <address@hidden>
 
        * help.el (help-form-show): New function, to be called from C.

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2011-04-06 21:13:17 +0000
+++ b/lisp/simple.el    2011-04-08 17:08:17 +0000
@@ -2769,6 +2769,8 @@
 \"*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