Fix some quoting problems in doc strings

[gnu-emacs-elpa] / packages / wcheck-mode / wcheck-mode.el

diff --git a/packages/wcheck-mode/wcheck-mode.el b/packages/wcheck-mode/wcheck-mode.el
index 5dd2df9d601596812995d8f6612cd8ae3c8ab5a8..c97f09b878cdf40197f1b15b0afab9f8140726a8 100644 (file)
--- a/packages/wcheck-mode/wcheck-mode.el
+++ b/packages/wcheck-mode/wcheck-mode.el
@@ -360,12 +360,12 @@ regexp-end
 
     The default values for the regular expressions are
 
 
     The default values for the regular expressions are
 

-        \\=\\<'*         (regexp-start)
+        \\=\\<\\='*         (regexp-start)

         \\w+?         (regexp-body)
         \\w+?         (regexp-body)

-        '*\\=\\>         (regexp-end)
+        \\='*\\=\\>         (regexp-end)

 
     Effectively they match a series of word characters defined in
 
     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.
 
     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
 
     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
 
     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)
      (connection . nil)
      (face . wcheck-default-face)
      (syntax . text-mode-syntax-table)

-     (regexp-start . \"\\\\=\\<'*\")
+     (regexp-start . \"\\\\=\\<\\='*\")

      (regexp-body . \"\\\\w+?\")
      (regexp-body . \"\\\\w+?\")

-     (regexp-end . \"'*\\\\=\\>\")
-     (regexp-discard . \"\\\\`'+\\\\'\")
+     (regexp-end . \"\\='*\\\\=\\>\")
+     (regexp-discard . \"\\\\\\=`\\='+\\\\\\='\")

      (case-fold . nil)
      (read-or-skip-faces
       ((emacs-lisp-mode c-mode) read
      (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
 
         (when font-lock-mode
           (save-excursion

-            (font-lock-fontify-region (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))
 
         (wcheck--with-language-data
             (language (wcheck--buffer-data-get :buffer buffer :language))