From: yoichi <yoichi>
Date: Sun, 6 Mar 2005 14:33:56 +0000 (+0000)
Subject: cosmetic fix
X-Git-Tag: wl-2_14-root~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7b87bd04cabcb584a92382228809e2d061064797;p=elisp%2Fwanderlust.git

cosmetic fix
---

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))))))