From 7b87bd04cabcb584a92382228809e2d061064797 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 6 Mar 2005 14:33:56 +0000 Subject: [PATCH] cosmetic fix --- elmo/elmo-signal.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/elmo/elmo-signal.el b/elmo/elmo-signal.el index 2c15333..4f44d07 100644 --- a/elmo/elmo-signal.el +++ b/elmo/elmo-signal.el @@ -133,15 +133,15 @@ This function is for internal use only." (&define (arg [&rest arg]) def-body)) -(defun elmo-connect-signal (source signal-name listener function +(defun elmo-connect-signal (source signal-name listener handler &optional filter handback) - "Add FUNCTION as a listener of a signal identified by SIGNAL-NAME. -If SOURCE has non-nil value, FUNCTION will be invoked only if SOURCE is same as + "Add HANDLER as a callback function for signal identified by SIGNAL-NAME. +If SOURCE has non-nil value, HANDLER will be invoked only if SOURCE is same as source argument of `elmo-emit-signal'. Comparison is done with `eq'. If SOURCE is nil, react on signals from any sources. You can specify further filter function by FILTER." (let ((symbol (intern (symbol-name signal-name) elmo-signal-slot-obarray))) - (set symbol (cons (elmo-make-slot source listener function filter handback) + (set symbol (cons (elmo-make-slot source listener handler filter handback) (if (boundp symbol) (symbol-value symbol)))))) -- 1.7.10.4