X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-options.el;h=5fe36cba3dcdbbb13d1855c61fdcb9e764ca5fad;hp=2d39612f3b874f3982756540bc01590b961eea14;hb=c49ff9276f90e081f670d97cd68e37c00a590e78;hpb=2244c15ef11848cbc76e818e37a52c22fe359076

diff --git a/lisp/riece-options.el b/lisp/riece-options.el
index 2d39612..5fe36cb 100644
--- a/lisp/riece-options.el
+++ b/lisp/riece-options.el
@@ -29,10 +29,10 @@
 
 ;; User modifiable variables.
 (defgroup riece nil
-  "Riece specific customize group")
+  "Riece specific customize group.")
 
 (defgroup riece-options nil
-  "Riece user customizable variables"
+  "Riece user customizable variables."
   :prefix "riece-"
   :group 'riece)
 
@@ -58,7 +58,7 @@
   :group 'riece-options)
 
 (defgroup riece-looks nil
-  "Related to look and feel"
+  "Look and feel."
   :prefix "riece-"
   :group 'riece)
 
@@ -89,7 +89,7 @@ See the document of the function `recenter'."
 (defcustom riece-data-directory
   (if (fboundp 'locate-data-directory)
       (locate-data-directory "riece")
-    (file-name-directory (locate-library (symbol-file 'riece-data-directory))))
+    (file-name-directory load-file-name))
   "Where to look for data files."
   :type 'directory
   :group 'riece-options)
@@ -135,12 +135,12 @@ way is to put Riece variables on .emacs or file loaded from there."
   :group 'riece-options)
 
 (defgroup riece-server nil
-  "Server settings"
+  "Server settings."
   :prefix "riece-"
   :group 'riece)
 
 (defgroup riece-channel nil
-  "Channel settings"
+  "Channel settings."
   :prefix "riece-"
   :group 'riece)
 
@@ -236,7 +236,7 @@ way is to put Riece variables on .emacs or file loaded from there."
   :type 'boolean
   :group 'riece-server)
 
-(defcustom riece-quit-timeout 10
+(defcustom riece-quit-timeout 1
   "Quit timeout when there is no response from server."
   :type '(radio (integer :tag "Seconds")
 		(const nil))