[elpa] 117/352: wcheck-receive-words varmemmaksi

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 11260eab7db7b51de72b1fe4a968085bb8945f58
Author: Teemu Likonen <tliko...@iki.fi>
Date:   Wed Jul 22 08:09:48 2009 +0000

    wcheck-receive-words varmemmaksi
    
    Lisätään tarkistus, että puskuri on vielä olemassa.
---
 wcheck-mode.el |   10 ++++++----
 1 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 56fdf23..910bb3e 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -532,10 +532,12 @@ call. The delay between consecutive calls is defined in 
variable
 
 (defun wcheck-receive-words (process string)
   "`wcheck-mode' process output handler function."
-  (with-current-buffer (wcheck-get-data :process process :buffer)
-    (setq wcheck-received-words
-          (append wcheck-received-words (split-string string "\n+" t)))
-    (wcheck-timer-add-paint-request (current-buffer))))
+  (let ((buffer (wcheck-get-data :process process :buffer)))
+    (when (buffer-live-p buffer)
+      (with-current-buffer buffer
+        (setq wcheck-received-words
+              (append wcheck-received-words (split-string string "\n+" t)))
+        (wcheck-timer-add-paint-request buffer)))))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;