From 2453e114a9da8dbbf0acea9f0c4238d05f795551 Mon Sep 17 00:00:00 2001 From: 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 + + * 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 * 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