[Emacs-diffs] /srv/bzr/emacs/trunk r104456: Add the tiny convenience function `process-alive-p'.

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 104456
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Tue 2011-05-31 20:40:00 +0200
message:
  Add the tiny convenience function `process-alive-p'.
modified:
  doc/lispref/ChangeLog
  doc/lispref/processes.texi
  lisp/ChangeLog
  lisp/subr.el

=== modified file 'doc/lispref/ChangeLog'
--- a/doc/lispref/ChangeLog     2011-05-29 22:41:06 +0000
+++ b/doc/lispref/ChangeLog     2011-05-31 18:40:00 +0000
@@ -1,3 +1,8 @@
+2011-05-31  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * processes.texi (Process Information): Document
+       `process-alive-p'.
+
 2011-05-29  Chong Yidong  <address@hidden>
 
        * help.texi (Accessing Documentation):

=== modified file 'doc/lispref/processes.texi'
--- a/doc/lispref/processes.texi        2011-05-29 22:41:06 +0000
+++ b/doc/lispref/processes.texi        2011-05-31 18:40:00 +0000
@@ -859,6 +859,12 @@
 closed the connection, or Emacs did @code{delete-process}.
 @end defun
 
address@hidden process-alive-p process
+This function returns address@hidden if @var{process} is alive.  A
+process is considered alive if its status is @code{run}, @code{open},
address@hidden, @code{connect} or @code{stop}.
address@hidden defun
+
 @defun process-type process
 This function returns the symbol @code{network} for a network
 connection or server, @code{serial} for a serial port connection, or

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-31 15:41:14 +0000
+++ b/lisp/ChangeLog    2011-05-31 18:40:00 +0000
@@ -1,3 +1,7 @@
+2011-05-31  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * subr.el (process-alive-p): New tiny convenience function.
+
 2011-05-31  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/debug.el (debug): Save&restore not just the buffer's

=== modified file 'lisp/subr.el'
--- a/lisp/subr.el      2011-05-28 19:36:02 +0000
+++ b/lisp/subr.el      2011-05-31 18:40:00 +0000
@@ -1805,6 +1805,13 @@
          (forward-line 1))
        (nreverse lines)))))
 
+(defun process-alive-p (process)
+  "Returns non-nil if PROCESS is alive.
+A process is considered alive if its status is `run', `open',
+`listen', `connect' or `stop'."
+  (memq (process-status process)
+        '(run open listen connect stop)))
+
 ;; compatibility
 
 (make-obsolete