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.