From b241a441a19eeb9e8ac04cb33dbffca0b9ff3fe0 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 9 Aug 2005 04:28:30 +0000 Subject: [PATCH] * riece-mini.el (riece-mini-message-no-log): Defined as a function. (riece-mini-requires): Fixed indent. --- lisp/ChangeLog | 6 ++++++ lisp/riece-mini.el | 12 ++++++------ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8e7737c..52642d7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2005-08-09 Daiki Ueno + + * riece-mini.el (riece-mini-message-no-log): Defined as a + function. + (riece-mini-requires): Fixed indent. + 2005-08-08 Daiki Ueno * riece.el (riece-dialogue-mode-map): Bind diff --git a/lisp/riece-mini.el b/lisp/riece-mini.el index 2c88006..860f514 100644 --- a/lisp/riece-mini.el +++ b/lisp/riece-mini.el @@ -61,14 +61,14 @@ (defconst riece-mini-description "Send arrival messages to minibuffer") -(defmacro riece-mini-message-no-log (string &rest args) +(defun riece-mini-message-no-log (string &rest args) "Like `message', except that message logging is disabled." (if (featurep 'xemacs) (if args - `(display-message 'no-log (format ,string ,@args)) - `(display-message 'no-log ,string)) - `(let (message-log-max) - (message ,string ,@args)))) + (display-message 'no-log (apply #'format string args)) + (display-message 'no-log string)) + (let (message-log-max) + (apply #'message string args)))) (defun riece-mini-display-message-function (message) "Show arrival messages to minibuffer." @@ -141,7 +141,7 @@ If twice (C-u C-u), then ask the channel." (defun riece-mini-requires () (if (memq 'riece-biff riece-addons) - '(riece-biff))) + '(riece-biff))) (defun riece-mini-insinuate () (add-hook 'riece-after-display-message-functions -- 1.7.10.4