From: ueno <ueno>
Date: Fri, 21 May 2004 06:37:17 +0000 (+0000)
Subject: * riece-addon.el (riece-command-list-addons): Change "no
X-Git-Tag: riece-1_0_0~31
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=df8fc077ccec14ea0168acf2a7741f993e9703e5;p=elisp%2Friece.git

* riece-addon.el (riece-command-list-addons): Change "no
description" -> "(no description)".

* riece-ctcp.el (riece-ctcp-description): New variable.
* riece-highlight.el (riece-highlight-description): New variable
* riece-log.el (riece-log-description): New variable.
* riece-mini.el (riece-mini-description): New variable.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8cd72ae..22fb73b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,15 @@
 2004-05-21  Daiki Ueno  <ueno@unixuser.org>
 
+	* riece-addon.el (riece-command-list-addons): Change "no
+	description" -> "(no description)".
+
+	* riece-ctcp.el (riece-ctcp-description): New variable.
+	* riece-highlight.el (riece-highlight-description): New variable
+	* riece-log.el (riece-log-description): New variable.
+	* riece-mini.el (riece-mini-description): New variable.
+
+2004-05-21  Daiki Ueno  <ueno@unixuser.org>
+
 	* riece-ctcp.el (riece-ctcp-enable): Fixed typo.
 
 	* riece-addon.el (riece-addon-list-mode-map): New keymap.
diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el
index 33b9bb4..348c987 100644
--- a/lisp/riece-addon.el
+++ b/lisp/riece-addon.el
@@ -165,7 +165,7 @@ All normal editing commands are turned off."
 			(car pointer)
 			(if description
 			    (symbol-value description)
-			  "no description")))
+			  "(no description)")))
 	(put-text-property point (point) 'riece-addon (car pointer))
 	(setq pointer (cdr pointer)))
       (insert "
diff --git a/lisp/riece-ctcp.el b/lisp/riece-ctcp.el
index b3bec43..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))
diff --git a/lisp/riece-highlight.el b/lisp/riece-highlight.el
index ff65be5..ead7a2a 100644
--- a/lisp/riece-highlight.el
+++ b/lisp/riece-highlight.el
@@ -189,6 +189,9 @@
 
 (defvar riece-highlight-enabled nil)
 
+(defconst riece-highlight-description
+  "Highlight IRC buffers")
+
 (defvar font-lock-support-mode)
 (defun riece-highlight-setup-dialogue ()
   (make-local-variable 'font-lock-defaults)
diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index a2573fe..71923a4 100644
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -68,6 +68,9 @@ If integer, flash back only this line numbers. t means all lines."
 
 (defvar riece-log-enabled nil)
 
+(defconst riece-log-description
+  "Saving IRC logs")
+
 (defun riece-log-display-message-function (message)
   (if riece-log-enabled
       (let ((file (riece-log-get-file (riece-message-target message)))
diff --git a/lisp/riece-mini.el b/lisp/riece-mini.el
index d134e84..08301ee 100644
--- a/lisp/riece-mini.el
+++ b/lisp/riece-mini.el
@@ -45,6 +45,9 @@
 
 (defvar riece-mini-enabled nil)
 
+(defconst riece-mini-description
+  "Send arrival messages to minibuffer")
+
 (defmacro riece-mini-message-no-log (string &rest args)
   "Like `message', except that message logging is disabled."
   (if (featurep 'xemacs)