From bc5b4f02695cb1b02a66ca38b82492d738557521 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Thu, 20 Nov 1997 15:29:06 +0000
Subject: [PATCH] (wnn): New group.

---
 egg/wnn.el |   16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/egg/wnn.el b/egg/wnn.el
index 6474eb9..07a0ae8 100644
--- 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))
 
-(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)
   ""
-- 
1.7.10.4