[elpa] 77/352: Muutetaan wcheck-language-data-defaults vakioksi (defconst)

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 74996d683c4536dde8124dff571604141bc4a10e
Author: Teemu Likonen <address@hidden>
Date:   Fri Jun 19 10:29:22 2009 +0000

    Muutetaan wcheck-language-data-defaults vakioksi (defconst)
    
    Samalla siirretään se toiseen paikkaan tiedoston sisällä.
---
 wcheck-mode.el |   22 ++++++++++++----------
 1 files changed, 12 insertions(+), 10 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 441a37f..1a88853 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -189,6 +189,18 @@ An example contents of the `wcheck-language-data' variable:
                                          :value "\\`'+\\'"))))))
 
 
+(defconst wcheck-language-data-defaults
+  '((args . "")
+    (face . wcheck-default-face)
+    (syntax . text-mode-syntax-table)
+    (regexp-start . "\\<'*")
+    (regexp-body . "\\w+?")
+    (regexp-end . "'*\\>")
+    (regexp-discard . "\\`'+\\'"))
+  "Default language configuration for `wcheck-mode'.
+This constant is for Wcheck mode's internal use only. This
+provides useful defaults for `wcheck-language-data'.")
+
 
 ;;;###autoload
 (defcustom wcheck-language ""
@@ -208,16 +220,6 @@ This is used when language does not define face."
   :group 'wcheck)
 
 
-(setq-default wcheck-language-data-defaults
-              '((args . "")
-                (face . wcheck-default-face)
-                (syntax . text-mode-syntax-table)
-                (regexp-start . "\\<'*")
-                (regexp-body . "\\w+?")
-                (regexp-end . "'*\\>")
-                (regexp-discard . "\\`'+\\'")))
-
-
 (setq-default wcheck-buffer-process-data nil
               wcheck-received-words nil)