From 2453e114a9da8dbbf0acea9f0c4238d05f795551 Mon Sep 17 00:00:00 2001
From: bg66 <bg66>
Date: Sun, 17 Sep 2000 14:33:29 +0000
Subject: [PATCH] * 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.
---
 lisp/ChangeLog        |   12 ++++++++++++
 lisp/liece-channel.el |    2 +-
 lisp/liece-emacs.el   |    4 ++--
 lisp/liece-handle.el  |    2 +-
 lisp/liece-xemacs.el  |    4 ++--
 5 files changed, 18 insertions(+), 6 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a38c9b9..3b5d6e5 100644
--- 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
--- 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
--- 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
--- 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
--- 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)
 
-- 
1.7.10.4