[elpa] 131/352: Tehostetaan append-komentoja

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 798816f6cf9359bede4e40a82b7a639d20836d9c
Author: Teemu Likonen <tliko...@iki.fi>
Date:   Sat Jul 25 11:10:34 2009 +0000

    Tehostetaan append-komentoja
---
 wcheck-mode.el |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index f2ed44a..fce4e51 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -463,8 +463,8 @@ in buffers."
         (setq wcheck-buffer-window-areas (wcheck-combine-overlapping-areas
                                           area-alist))
         (dolist (area wcheck-buffer-window-areas)
-          (setq words (append words (wcheck-read-words
-                                     buffer (car area) (cdr area)))))
+          (setq words (append (wcheck-read-words buffer (car area) (cdr area))
+                              words)))
         ;; Send words to external process.
         (wcheck-send-words buffer words))))
 
@@ -486,8 +486,8 @@ in buffers."
         ;; 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)))
+                         (append (split-string string "\n+" t)
+                                 wcheck-received-words))
                    (wcheck-timer-add-paint-request buffer))
 
           ;; It's not running. Turn off the mode.