[elpa] 285/352: Make "syntax" and "case-fold" effective with "program" function

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 0452e81ed896686b1134cb473c1cadac325c3457
Author: Teemu Likonen <address@hidden>
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