X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-ctcp.el;h=5fc14e0bc0923f7833136e99d5f78db3fb4c92b6;hp=79d64ba365039a95b24ce8147c7a4e94375e1034;hb=2d67acd4af1122a36fcc09b47a479b927ca03904;hpb=495493e8e3978d3e178ce15f341b192177dbba88

diff --git a/lisp/riece-ctcp.el b/lisp/riece-ctcp.el
index 79d64ba..5fc14e0 100644
--- a/lisp/riece-ctcp.el
+++ b/lisp/riece-ctcp.el
@@ -51,6 +51,9 @@
 
 (defvar riece-ctcp-enabled nil)
 
+(defconst riece-ctcp-description
+  "CTCP (Client To Client Protocol) support")
+
 (defun riece-handle-ctcp-request (prefix string)
   (when (and riece-ctcp-enabled prefix string
 	     (riece-prefix-nickname prefix))
@@ -347,7 +350,7 @@
   (define-key riece-dialogue-mode-map "\C-cp" 'riece-command-ctcp-ping)
   (define-key riece-dialogue-mode-map "\C-ca" 'riece-command-ctcp-action)
   (define-key riece-dialogue-mode-map "\C-cc" 'riece-command-ctcp-clientinfo)
-  (setq riece-ctcp-enable t))
+  (setq riece-ctcp-enabled t))
 
 (defun riece-ctcp-disable ()
   (define-key riece-dialogue-mode-map "\C-cv" nil)