[elpa] 234/352: Uusi funktio: wcheck-process-running-p

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit ed0847797f886db0e8ca059a99af777109bead9e
Author: Teemu Likonen <address@hidden>
Date:   Sun Feb 20 12:58:32 2011 +0000

    Uusi funktio: wcheck-process-running-p
---
 wcheck-mode.el |    6 +++++-
 1 files changed, 5 insertions(+), 1 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 02a0522..8e1d9b9 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -997,7 +997,7 @@ separate line."
         ;; If process is running proceed to collect and paint the
         ;; strings.
         (condition-case error-data
-            (if (eq 'run (process-status process))
+            (if (wcheck-process-running-p process)
                 (with-current-buffer (process-buffer process)
                   (save-excursion
                     (goto-char (point-max))
@@ -1953,6 +1953,10 @@ or `wcheck-language-data-defaults-hard-coded'."
        (not (memq nil (mapcar #'listp object)))))
 
 
+(defun wcheck-process-running-p (process)
+  (eq 'run (process-status process)))
+
+
 (defun wcheck-current-idle-time-seconds ()
   "Return current idle time in seconds.
 The returned value is a floating point number."