monnier pushed a commit to branch master
in repository elpa.
commit 74996d683c4536dde8124dff571604141bc4a10e
Author: Teemu Likonen <[email protected]>
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)
