* liece-vars.el (liece-channel-buffer-mode): Set default to t.

[elisp/liece.git] / lisp / liece-vars.el

diff --git a/lisp/liece-vars.el b/lisp/liece-vars.el
index 0cfd043..43a1442 100644 (file)
--- a/lisp/liece-vars.el
+++ b/lisp/liece-vars.el
@@ -80,6 +80,17 @@
   :type 'boolean
   :group 'liece-look)
 
+(defcustom liece-display-unread-mark nil
+  "If non-nil, display unread mark as XEmacs glyphs or character to channel
+list buffer."
+  :type 'boolean
+  :group 'liece-look)
+
+(defcustom liece-channel-unread-character "!"
+  "Channel unread character."
+  :type 'character
+  :group 'liece-look)
+
 (defcustom liece-tab-stop-list '(2 4 6 8 10 12 14 16)
   "List of tab stop positions in dialogue buffer."
   :type '(repeat integer)
@@ -99,6 +110,13 @@
                       (string :tag "Image")))
   :group 'liece-look)
 
+(defcustom liece-inhibit-startup-message nil
+  "If non-nil, the startup message will not be displayed.
+This variable is used before `.liece/init.el' is loaded, so it should
+be set in `.emacs' instead."
+  :group 'liece-look
+  :type 'boolean)
+
 (defcustom liece-want-traditional nil
   "Do we want /commands."
   :type 'boolean
@@ -363,7 +381,7 @@ Otherwise you might get killed again if automagic reconnect is too fast."
   :group 'liece-hook)
 
 ;; Channel buffers.
-(defcustom liece-channel-buffer-mode nil
+(defcustom liece-channel-buffer-mode t
   "When non-nil, liece will display a channel buffer."
   :type 'boolean
   :group 'liece-look)
@@ -401,7 +419,7 @@ Otherwise you might get killed again if automagic reconnect is too fast."
   :group 'liece-partner)
 
 ;; Nick buffers.
-(defcustom liece-nick-buffer-mode nil
+(defcustom liece-nick-buffer-mode t
   "When non-nil, liece will display a nick list buffer."
   :type 'boolean
   :group 'liece-look)
@@ -417,7 +435,7 @@ Otherwise you might get killed again if automagic reconnect is too fast."
   :group 'liece-look)
 
 ;; Channel list buffer.
-(defcustom liece-channel-list-buffer-mode nil
+(defcustom liece-channel-list-buffer-mode t
   "When non-nil, liece will display a channel list buffer."
   :type 'boolean
   :group 'liece-look)
@@ -428,7 +446,7 @@ Otherwise you might get killed again if automagic reconnect is too fast."
   :group 'liece-look)
   
 ;; Highlight.
-(defcustom liece-highlight-mode nil
+(defcustom liece-highlight-mode t
   "If non nil, IRC buffer is highlighted by specific rule."
   :type 'boolean
   :group 'liece-highlight)
@@ -837,6 +855,11 @@ Messages from them won't be displayed."
   (define-obsolete-variable-alias 'liece-checkbuffer-interval
     'liece-buffer-check-interval))
 
+(defcustom liece-buffer-dispose-function (function bury-buffer)
+  "Function called after the buffer was disposed of."
+  :type 'function
+  :group 'liece-vars)
+
 (defcustom liece-private-window-height 4
   "How tall is the window for private messages when shown."
   :type 'integer