From: morioka <morioka>
Date: Thu, 20 Nov 1997 15:29:06 +0000 (+0000)
Subject: (wnn): New group.
X-Git-Tag: egg-tomo-leim^2~23
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bc5b4f02695cb1b02a66ca38b82492d738557521;p=elisp%2Fegg.git

(wnn): New group.
---

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)
   ""