From df47dfd8cfcaa088df3a7e7485774ab483b8ea0d Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 18 May 2004 04:09:11 +0000 Subject: [PATCH] * riece-ignore.el (riece-ignore-user): Renamed from riece-ignore-by-user. --- lisp/ChangeLog | 5 +++++ lisp/riece-ignore.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d86b58a..84315a9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2004-05-18 Daiki Ueno + * riece-ignore.el (riece-ignore-user): Renamed from + riece-ignore-by-user. + +2004-05-18 Daiki Ueno + * riece-signal.el (riece-connect-signal): Fixed doc. (riece-disconnect-signal): New function. diff --git a/lisp/riece-ignore.el b/lisp/riece-ignore.el index 32c36bb..f8c277f 100644 --- a/lisp/riece-ignore.el +++ b/lisp/riece-ignore.el @@ -51,7 +51,7 @@ Otherwise, they are left there but not visible." (if pointer (setcar pointer (nth 1 (riece-signal-args signal)))))) -(defun riece-ignore-by-user (user toggle) +(defun riece-ignore-user (user toggle) (interactive (let ((completion-ignore-case t)) (list (if current-prefix-arg @@ -93,7 +93,7 @@ Otherwise, they are left there but not visible." (defun riece-ignore-insinuate () (add-hook 'riece-message-filter-functions 'riece-ignore-message-filter) (define-key riece-command-mode-map - "\C-ck" 'riece-ignore-by-user)) + "\C-ck" 'riece-ignore-user)) (provide 'riece-ignore) -- 1.7.10.4