[elpa] 42/352: Tehdään oletuskielestä customize-muuttuja

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 724303640adf0d7bcdee5cbd3ff5e0348c34d309
Author: Teemu Likonen <address@hidden>
Date:   Sun May 17 20:37:55 2009 +0000

    Tehdään oletuskielestä customize-muuttuja
---
 wcheck-mode.el |   23 ++++++++++-------------
 1 files changed, 10 insertions(+), 13 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 9d3d462..5f01d42 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -160,12 +160,20 @@ An example contents of the `wcheck-language-data' 
variable:
 
 
 
+(defcustom wcheck-language ""
+  "Default language for `wcheck-mode'.
+The default language used by new buffers. For buffer-specific
+languages use the command `\\[wcheck-change-language]'."
+  :type '(string :tag "Default language")
+  :group 'wcheck)
+(make-variable-buffer-local 'wcheck-language)
+
+
 (defface wcheck-default-face
   '((t (:underline "red")))
   "Default face for marking strings in a buffer.
 This is used when language does not define face."
-  :group 'wcheck
-  )
+  :group 'wcheck)
 
 
 (setq-default wcheck-language-data-defaults
@@ -177,17 +185,6 @@ This is used when language does not define face."
                 (regexp-end . "'*\\>")
                 (regexp-discard . "\\`'+\\'")))
 
-(defvar wcheck-language
-  (let ((first (caar wcheck-language-data)))
-    (if (stringp first)
-        first
-      ""))
-
-  "Oletuskieli on globaalissa muuttujassa, puskurikohtainen kieli
-on puskurikohtaisessa muuttujassa. Tätä muuttujaa ei kannata
-muokata suoraan; kieli kannattaa muuttaa komennolla
-`\\[wcheck-change-language]'.")
-(make-variable-buffer-local 'wcheck-language)
 
 (setq-default wcheck-buffer-process-data nil
               wcheck-received-words nil)