X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/8af54043a17f71db57963ddf86ccd0de81acea2c..f10533854f4c7bb54247a11981191bf37b70cb36:/packages/wcheck-mode/wcheck-mode.el

diff --git a/packages/wcheck-mode/wcheck-mode.el b/packages/wcheck-mode/wcheck-mode.el
index 34838ae10..c97f09b87 100644
--- a/packages/wcheck-mode/wcheck-mode.el
+++ b/packages/wcheck-mode/wcheck-mode.el
@@ -1,13 +1,13 @@
 ;;; wcheck-mode.el --- General interface for text checkers
 
-;; Copyright (C) 2009-2014  Free Software Foundation, Inc.
+;; Copyright (C) 2009-2016  Free Software Foundation, Inc.
 
 ;; Author: Teemu Likonen <tlikonen@iki.fi>
 ;; Maintainer: Teemu Likonen <tlikonen@iki.fi>
 ;; Created: 2009-07-04
 ;; URL: https://github.com/tlikonen/wcheck-mode
 ;; Keywords: text spell check languages ispell
-;; Version: 2014.6.21
+;; Version: 2016.1.30
 
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -360,12 +360,12 @@ regexp-end
 
     The default values for the regular expressions are
 
-        \\=\\<'*         (regexp-start)
+        \\=\\<\\='*         (regexp-start)
         \\w+?         (regexp-body)
-        '*\\=\\>         (regexp-end)
+        \\='*\\=\\>         (regexp-end)
 
     Effectively they match a series of word characters defined in
-    the effective syntax table. Single quotes (') at the start
+    the effective syntax table. Single quotes (\\=') at the start
     and end of a word are excluded. This is probably a good thing
     when using `wcheck-mode' as a spelling checker.
 
@@ -377,7 +377,7 @@ regexp-discard
     to define exceptions to the `regexp-body' match. The default
     value is
 
-        \\`'+\\'
+        \\\\=`\\='+\\\\='
 
     which discards the body string if it consists only of single
     quotes. This was chosen as the default because the default
@@ -623,10 +623,10 @@ Here's an example value for the variable:
      (connection . nil)
      (face . wcheck-default-face)
      (syntax . text-mode-syntax-table)
-     (regexp-start . \"\\\\=\\<'*\")
+     (regexp-start . \"\\\\=\\<\\='*\")
      (regexp-body . \"\\\\w+?\")
-     (regexp-end . \"'*\\\\=\\>\")
-     (regexp-discard . \"\\\\`'+\\\\'\")
+     (regexp-end . \"\\='*\\\\=\\>\")
+     (regexp-discard . \"\\\\\\=`\\='+\\\\\\='\")
      (case-fold . nil)
      (read-or-skip-faces
       ((emacs-lisp-mode c-mode) read
@@ -1388,7 +1388,10 @@ areas, including invisible ones. Otherwise skip invisible text."
 
         (when font-lock-mode
           (save-excursion
-            (jit-lock-fontify-now (min beg end) (max beg end))))
+            (funcall (if (fboundp 'font-lock-ensure)
+                         #'font-lock-ensure
+                       #'font-lock-fontify-region)
+                     (min beg end) (max beg end))))
 
         (wcheck--with-language-data
             (language (wcheck--buffer-data-get :buffer buffer :language))
@@ -2180,12 +2183,13 @@ But only if it doesn't exist already."
 If optional TARGET-KEY is not given return all data associated
 with the matching KEY VALUE."
   (catch 'answer
-    (dolist (item wcheck--buffer-data)
-      (when (equal value (aref item (wcheck--buffer-data-key-index key)))
-        (throw 'answer (if target-key
-                           (aref item (wcheck--buffer-data-key-index
-                                       target-key))
-                         item))))))
+    (let ((index (wcheck--buffer-data-key-index key)))
+      (dolist (item wcheck--buffer-data)
+        (when (equal value (aref item index))
+          (throw 'answer (if target-key
+                             (aref item (wcheck--buffer-data-key-index
+                                         target-key))
+                           item)))))))
 
 
 (defun wcheck--buffer-data-get-all (&optional key)