monnier pushed a commit to branch master
in repository elpa.
commit 89301383e5d1ef80042cd97c02ffa71a0b237781
Author: Teemu Likonen <[email protected]>
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)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
