monnier pushed a commit to branch master in repository elpa. commit 0452e81ed896686b1134cb473c1cadac325c3457 Author: Teemu Likonen <tliko...@iki.fi> Date: Sun Jul 3 17:23:59 2011 +0300
Make "syntax" and "case-fold" effective with "program" function Language options "syntax" and "case-fold" are now effective when the checker "program" function is called. --- wcheck-mode.el | 6 ++++-- 1 files changed, 4 insertions(+), 2 deletions(-) diff --git a/wcheck-mode.el b/wcheck-mode.el index 585af9f..7f8d65d 100644 --- a/wcheck-mode.el +++ b/wcheck-mode.el @@ -1011,7 +1011,7 @@ process which handles BUFFER. Each string in STRINGS is sent as separate line." (wcheck-with-language-data (nil (wcheck-buffer-data-get :buffer buffer :language)) - (program) + (program syntax (case-fold-search case-fold)) (condition-case nil (cond ((or (wcheck-buffer-data-get :buffer buffer :process) @@ -1031,7 +1031,9 @@ separate line." (with-current-buffer buffer (let ((received (save-match-data - (condition-case nil (funcall program strings) + (condition-case nil + (with-syntax-table (eval syntax) + (funcall program strings)) (error (signal 'wcheck-funcall-error nil)))))) (if (wcheck-list-of-strings-p received) (when received