[elpa] 128/352: Siirretään funktion wcheck-receive-words paikkaa

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit a052de66b1c8e9535e4ff6f303223ab4c3646608
Author: Teemu Likonen <address@hidden>
Date:   Sat Jul 25 11:09:31 2009 +0000

    Siirretään funktion wcheck-receive-words paikkaa
    
    Nyt tämä sekä ajastinfunktiot sijaitsevat loogisessa järjestyksessä sen
    suhteen, miten funktioita kutsutaan oikoluvun ollessa käynnissä.
---
 wcheck-mode.el |   38 +++++++++++++++++++-------------------
 1 files changed, 19 insertions(+), 19 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index ccb8821..acbbca8 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -477,6 +477,25 @@ in buffers."
                        3))
 
 
+(defun wcheck-receive-words (process string)
+  "`wcheck-mode' process output handler function."
+  (let ((buffer (wcheck-get-data :process process :buffer)))
+    (when (buffer-live-p buffer)
+      (with-current-buffer buffer
+
+        ;; If process is running proceed to collect and paint the words.
+        (if (eq 'run (process-status process))
+            (progn (setq wcheck-received-words
+                         (append wcheck-received-words
+                                 (split-string string "\n+" t)))
+                   (wcheck-timer-add-paint-request buffer))
+
+          ;; It's not running. Turn off the mode.
+          (wcheck-mode -1)
+          (message "Process is not running for buffer \"%s\""
+                   (buffer-name buffer)))))))
+
+
 (defun wcheck-timer-paint-event (&optional repeat)
   "Mark text in windows.
 
@@ -516,25 +535,6 @@ call. The delay between consecutive calls is defined in 
variable
                          (1- repeat))))
 
 
-(defun wcheck-receive-words (process string)
-  "`wcheck-mode' process output handler function."
-  (let ((buffer (wcheck-get-data :process process :buffer)))
-    (when (buffer-live-p buffer)
-      (with-current-buffer buffer
-
-        ;; If process is running proceed to collect and paint the words.
-        (if (eq 'run (process-status process))
-            (progn (setq wcheck-received-words
-                         (append wcheck-received-words
-                                 (split-string string "\n+" t)))
-                   (wcheck-timer-add-paint-request buffer))
-
-          ;; It's not running. Turn off the mode.
-          (wcheck-mode -1)
-          (message "Process is not running for buffer \"%s\""
-                   (buffer-name buffer)))))))
-
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Hooks