[elpa] 163/352: Tallennetaan täsmäystiedot jäsenninfunktion kutsumisen ajaksi

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 89301383e5d1ef80042cd97c02ffa71a0b237781
Author: Teemu Likonen <address@hidden>
Date:   Tue Aug 3 07:10:16 2010 +0000

    Tallennetaan täsmäystiedot jäsenninfunktion kutsumisen ajaksi
---
 wcheck-mode.el |    9 ++++-----
 1 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index dc8e264..013a4ae 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -1120,7 +1120,7 @@ suggestions as a list of strings (or nil if there aren't 
any)."
              (apply #'call-process-region (point-min) (point-max)
                     program t t nil args)
              (goto-char (point-min))
-             (let ((suggestions (funcall func)))
+             (let ((suggestions (save-match-data (funcall func))))
                (if (wcheck-list-of-strings-p suggestions)
                    suggestions
                  (message
@@ -1214,10 +1214,9 @@ SUGGESTIONS is a list of strings. Return user's choice 
(string)."
 (defun wcheck-parse-suggestions-ispell ()
   "Parser for Ispell-compatible programs' output."
   (let ((search-spaces-regexp nil))
-    (save-match-data
-      (when (re-search-forward "^& [^:]+: \\(.+\\)$" nil t)
-        (delete-dups (split-string (match-string-no-properties 1)
-                                   ", " t))))))
+    (when (re-search-forward "^& [^:]+: \\(.+\\)$" nil t)
+      (delete-dups (split-string (match-string-no-properties 1)
+                                 ", " t)))))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;