monnier pushed a commit to branch master in repository elpa. commit a052de66b1c8e9535e4ff6f303223ab4c3646608 Author: Teemu Likonen <tliko...@iki.fi> 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