[elpa] 176/352: Tarkennetaan Ispell-tulosteen käsittelyä

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit fede34586459c2ae7041bfcc2d4da1bca0754b1e
Author: Teemu Likonen <address@hidden>
Date:   Sat Oct 30 12:04:14 2010 +0000

    Tarkennetaan Ispell-tulosteen käsittelyä
    
    Nyt jäsennenfunktio wcheck-parse-suggestions-ispell huomioi Ispellin
    &-rivin lukumääräkentän: korjausehdotuksista kerätään vain sen osoittama
    sanojen määrä.
---
 wcheck-mode.el |    7 ++++---
 1 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 933f6e9..adb6e51 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -1250,9 +1250,10 @@ or nil."
 (defun wcheck-parse-suggestions-ispell ()
   "Parser for Ispell-compatible programs' output."
   (let ((search-spaces-regexp nil))
-    (when (re-search-forward "^& [^:]+: \\(.+\\)$" nil t)
-      (delete-dups (split-string (match-string-no-properties 1)
-                                 ", " t)))))
+    (when (re-search-forward "^& [^ ]+ \\([0-9]+\\) [0-9]+: \\(.+\\)$" nil t)
+      (let ((count (string-to-number (match-string-no-properties 1)))
+            (words (split-string (match-string-no-properties 2) ", " t)))
+        (delete-dups (nbutlast words (- (length words) count)))))))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;