monnier pushed a commit to branch master
in repository elpa.
commit 7e8a6f220947ef93bcffdfe23c04272abcbe302d
Author: Teemu Likonen <[email protected]>
Date: Mon Dec 27 17:48:15 2010 +0000
Vaihdetaan muuttujan nimi paremmin tarkoitusta kuvaamvaksi
Kyse on funktion wcheck-get-suggestions paikallisesta muuttujasta.
---
wcheck-mode.el | 8 ++++++--
1 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index 8718782..b875007 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -1279,29 +1279,33 @@ there aren't any)."
(let ((program (wcheck-query-language-data language 'suggestion-program))
(args (wcheck-query-language-data language 'suggestion-args))
- (func (wcheck-query-language-data language 'suggestion-parser)))
+ (parser (wcheck-query-language-data language 'suggestion-parser)))
+
(cond ((not (wcheck-suggestion-program-configured-p language))
(message
"Language \"%s\": suggestion program or function is not configured"
language)
'error)
+
((and (stringp program)
(not func))
(message "Parser function for language \"%s\" is not configured"
language)
'error)
+
((stringp program)
(with-temp-buffer
(insert text)
(apply #'call-process-region (point-min) (point-max)
program t t nil args)
(goto-char (point-min))
- (let ((suggestions (save-match-data (funcall func))))
+ (let ((suggestions (save-match-data (funcall parser))))
(if (wcheck-list-of-strings-p suggestions)
suggestions
(message
"Parser function must return a list of strings or nil")
'error))))
+
((functionp program)
(let ((suggestions (save-match-data (funcall program text))))
(if (wcheck-list-of-strings-p suggestions)
