[Erc-commit] [commit][master] erc-dcc: Split lambda form in erc-dcc-send-connect-hook into its own fun.

[mwolson]

commit 0e65b81d70f1552ea1d528cbe57154c2313851d7
Author: Michael W. Olson <address@hidden>
Date:   Thu Jan 17 02:10:03 2008 -0500

    erc-dcc: Split lambda form in erc-dcc-send-connect-hook into its own fun.

diff --git a/ChangeLog b/ChangeLog
index 124e1a1..eff30d5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -13,6 +13,9 @@
        * erc-dcc.el (erc-dcc-send-sentinel): Better handle case where elt
        is nil, in order to avoid an error.  Thanks to Brent Goodrick for
        the initial patch.
+       (erc-dcc-display-send): New function split from erc-dcc-send-hook.
+       (erc-dcc-send-connect-hook): Use it -- we don't like lambda forms
+       in hooks.
 
        * erc-networks.el (erc-server-alist): Add Rizon network.
 
diff --git a/erc-dcc.el b/erc-dcc.el
index 146d36c..3c8d302 100644
--- a/erc-dcc.el
+++ b/erc-dcc.el
@@ -745,13 +745,14 @@ bytes sent."
          (format "DCC: Client confirmed too much!"))
         (delete-process proc))))))
 
+(defun erc-dcc-display-send (proc)
+  (erc-display-message
+   nil 'notice (erc-dcc-get-parent proc)
+   (format "DCC: SEND connect from %s"
+           (format-network-address (process-contact proc :remote)))))
+
 (defcustom erc-dcc-send-connect-hook
-  '((lambda (proc)
-      (erc-display-message
-       nil 'notice (erc-dcc-get-parent proc)
-       (format "DCC: SEND connect from %s"
-               (format-network-address (process-contact proc :remote)))))
-    erc-dcc-send-block)
+  '(erc-dcc-display-send erc-dcc-send-block)
   "*Hook run whenever the remote end of a DCC SEND offer connected to your
 listening port."
   :group 'erc-dcc