monnier pushed a commit to branch master
in repository elpa.
commit ed0847797f886db0e8ca059a99af777109bead9e
Author: Teemu Likonen <[email protected]>
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."
