monnier pushed a commit to branch master in repository elpa. commit ed0847797f886db0e8ca059a99af777109bead9e Author: Teemu Likonen <tliko...@iki.fi> 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."