* 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 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+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.

diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el
index 33b9bb4..348c987 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)