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