X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-options.el;h=7c8190ea9028f76bb1d58910fde3a8428ca163e2;hp=cc13625f161a3d2736777b39233831e0155be2b1;hb=7cf369e1211d396dc292f35f858ab8d36961c168;hpb=21290cb15e3b73ec3d7528885a5c2bad990d4b8d

diff --git a/lisp/riece-options.el b/lisp/riece-options.el
index cc13625..7c8190e 100644
--- a/lisp/riece-options.el
+++ b/lisp/riece-options.el
@@ -60,16 +60,19 @@
   :prefix "riece-"
   :group 'riece)
 
-(defcustom riece-truncate-partial-width-windows nil
-  "If non-nil, truncate lines in splitting windows such as others buffer."
-  :type 'boolean
-  :group 'riece-looks)
-
 (defcustom riece-use-full-window t
   "If non-nil, whole Emacs window is used to display dialogue."
   :type 'boolean
   :group 'riece-looks)
 
+(defcustom riece-window-center-line -2
+  "Line number of center point in window when scrolling.
+If nil, erases the entire frame and then redraws with point in the
+center of the window.  Negative means relative to bottom of window.
+See the document of the function `recenter'."
+  :type 'integer
+  :group 'riece-looks)
+
 (defcustom riece-directory (expand-file-name "~/.riece")
   "Where to look for data files."
   :type 'directory
@@ -80,7 +83,7 @@
   "Where to look for add-on files."
   :type 'directory
   :group 'riece-options)
-  
+
 (defcustom riece-variables-file
   (expand-file-name "init" riece-directory)
   "Where to look for variables."
@@ -159,7 +162,7 @@ way is to put Riece variables on .emacs or file loaded from there."
 	 (args (list spec)))
     (widget-put widget :args args)
     widget))
-  
+
 (defcustom riece-server-alist nil
   "An alist mapping server names to plist."
   :type 'riece-server-spec
@@ -170,6 +173,21 @@ way is to put Riece variables on .emacs or file loaded from there."
   :type 'string
   :group 'riece-server)
 
+(defcustom riece-protocol 'irc
+  "Protocol support."
+  :type 'symbol
+  :group 'riece-server)
+
+(defcustom riece-max-send-size 512
+  "Maximum size of messages to be sent at a time."
+  :type 'integer
+  :group 'riece-server)
+
+(defcustom riece-send-delay 2
+  "Duration of multiple send."
+  :type 'integer
+  :group 'riece-server)
+  
 (defcustom riece-default-password (getenv "IRCPASSWORD")
   "Your password."
   :type '(radio (string :tag "Password")