* liece-channel.el (liece-channel-read-functions): Rename from

`liece-channel-read-hook'.

* liece-handle.el (liece-channel-unread-functions): Rename from
`liece-channel-unread-hook'.

* liece-emacs.el (toplevel): Use them.

* liece-xemacs.el (toplevel): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a38c9b9..3b5d6e5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2000-09-17  Akira Ohashi  <bg66@luck.gr.jp>
+
+       * liece-channel.el (liece-channel-read-functions): Rename from
+       `liece-channel-read-hook'.
+
+       * liece-handle.el (liece-channel-unread-functions): Rename from
+       `liece-channel-unread-hook'.
+
+       * liece-emacs.el (toplevel): Use them.
+
+       * liece-xemacs.el (toplevel): Ditto.
+
 2000-09-17   Daiki Ueno  <ueno@unixuser.org>
 
        * liece-make.el (make-liece-sample-files): Abolish.

diff --git a/lisp/liece-channel.el b/lisp/liece-channel.el
index 1bfe07b..aecc8ec 100644 (file)
--- a/lisp/liece-channel.el
+++ b/lisp/liece-channel.el
@@ -511,7 +511,7 @@ If NOSW is non-nil do not switch to newly created channel."
     (when (liece-channel-unread-p chnl)
       (setq liece-channel-unread-list
            (delete chnl liece-channel-unread-list))
-      (run-hook-with-args 'liece-channel-read-hook chnl))
+      (run-hook-with-args 'liece-channel-read-functions chnl))
     (and buffer window
         (with-current-buffer buffer
           (set-window-buffer window buffer)

diff --git a/lisp/liece-emacs.el b/lisp/liece-emacs.el
index 09a9b64..dbd82a1 100644 (file)
--- a/lisp/liece-emacs.el
+++ b/lisp/liece-emacs.el
@@ -268,8 +268,8 @@
   (liece-emacs-splash))
 
 (fset 'liece-redisplay-unread-mark 'liece-emacs-redisplay-unread-mark)
-(add-hook 'liece-channel-unread-hook 'liece-emacs-unread-mark)
-(add-hook 'liece-channel-read-hook 'liece-emacs-read-mark)
+(add-hook 'liece-channel-unread-functions 'liece-emacs-unread-mark)
+(add-hook 'liece-channel-read-functions 'liece-emacs-read-mark)
 
 (provide 'liece-emacs)
 

diff --git a/lisp/liece-handle.el b/lisp/liece-handle.el
index 06a07e5..18bbfb0 100644 (file)
--- a/lisp/liece-handle.el
+++ b/lisp/liece-handle.el
@@ -183,7 +183,7 @@
                  (delete chnl liece-channel-unread-list)))
        (setq liece-channel-unread-list
              (cons chnl liece-channel-unread-list))
-      (run-hook-with-args 'liece-channel-unread-hook chnl)))
+      (run-hook-with-args 'liece-channel-unread-functions chnl)))
 
     (if (and (liece-nick-equal chnl liece-real-nickname)
             (not (liece-nick-equal prefix liece-current-chat-partner)))

diff --git a/lisp/liece-xemacs.el b/lisp/liece-xemacs.el
index bdc114f..c30b265 100644 (file)
--- a/lisp/liece-xemacs.el
+++ b/lisp/liece-xemacs.el
@@ -622,8 +622,8 @@ If ARG is given, don't hide splash buffer."
 (add-hook 'liece-nick-replace-hook 'liece-xemacs-set-drop-functions)
 
 (fset 'liece-redisplay-unread-mark 'liece-xemacs-redisplay-unread-mark)
-(add-hook 'liece-channel-unread-hook 'liece-xemacs-unread-mark)
-(add-hook 'liece-channel-read-hook 'liece-xemacs-read-mark)
+(add-hook 'liece-channel-unread-functions 'liece-xemacs-unread-mark)
+(add-hook 'liece-channel-read-functions 'liece-xemacs-read-mark)
 
 (provide 'liece-xemacs)