[elpa] 95/352: Lisätään tarkistus ulkoisen prosessin päälläolosta

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit fd3e320c2ad50b788bc34bde10cc02a38581f088
Author: Teemu Likonen <tliko...@iki.fi>
Date:   Fri Jul 17 18:47:03 2009 +0000

    Lisätään tarkistus ulkoisen prosessin päälläolosta
---
 wcheck-mode.el |   19 ++++++++++++-------
 1 files changed, 12 insertions(+), 7 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 8458c1e..dba2f3e 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -506,13 +506,18 @@ call. The delay between consecutive calls is defined in 
variable
 
       ;; Walk through windows and mark text based on the word list
       ;; returned by an external process.
-      (when wcheck-mode
-        (walk-windows (lambda (window)
-                        (when (eq buffer (window-buffer window))
-                          (with-current-buffer buffer
-                            (wcheck-paint-words wcheck-language window
-                                                wcheck-received-words))))
-                      'nomb t))))
+      (cond ((not wcheck-mode) nil)
+            ((not (wcheck-process-running-p wcheck-language))
+             (wcheck-mode -1)
+             (message "Process is not running for language \"%s\""
+                      wcheck-language))
+            (t
+             (walk-windows (lambda (window)
+                             (when (eq buffer (window-buffer window))
+                               (with-current-buffer buffer
+                                 (wcheck-paint-words wcheck-language window
+                                                     wcheck-received-words))))
+                           'nomb t)))))
 
   ;; If REPEAT is positive integer call this function again after
   ;; waiting wcheck-timer-idle. Pass REPEAT minus one as the argument.