(wnn): New group.

diff --git a/egg/wnn.el b/egg/wnn.el
index 6474eb9..07a0ae8 100644 (file)
--- a/egg/wnn.el
+++ b/egg/wnn.el
@@ -29,6 +29,10 @@
 
 ;;; Code:
 
+(defgroup wnn nil
+  "Wnn interface for Tamagotchy"
+  :group 'egg)
+
 (eval-when-compile
   (defmacro WNN-const (c)
     (cond ((eq c 'BUN_SENTOU) -1)
@@ -132,8 +136,10 @@
 (defsubst wnn-bunsetsu-set-zenkouho-pos (bunsetsu zp)
   (aset bunsetsu 18 zp))
 \f
-(defvar wnn-server "localhost"
-  "Hostname of wnn server")
+(defcustom wnn-server "localhost"
+  "Hostname of wnn server"
+  :group 'wnn
+  :type 'string)
 
 (defvar wnn-environment nil
   "Environment for WNN kana-kanji conversion")
@@ -368,8 +374,10 @@ Return the list of bunsetsu."
     [("ud")                 nil            5 t t])
   "")
 
-(defvar wnn-usr-dic-dir (concat "usr/" (user-login-name))
-  "*Directory of user dictionary for Wnn.")
+(defcustom wnn-usr-dic-dir (concat "usr/" (user-login-name))
+  "*Directory of user dictionary for Wnn."
+  :group 'wnn
+  :type 'string)
 
 (defun wnn-filename (p)
   ""