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.
