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