[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Erc-commit] [commit][master] erc-dcc: Split lambda form in erc-dcc-send
From: |
mwolson |
Subject: |
[Erc-commit] [commit][master] erc-dcc: Split lambda form in erc-dcc-send-connect-hook into its own fun. |
Date: |
Thu, 17 Jan 2008 02:20:05 -0500 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Erc-commit] [commit][master] erc-dcc: Split lambda form in erc-dcc-send-connect-hook into its own fun.,
mwolson <=