[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Erc-commit] [commit][master] Add module definitions for erc-dcc.el and
From: |
mwolson |
Subject: |
[Erc-commit] [commit][master] Add module definitions for erc-dcc.el and erc-xdcc.el. |
Date: |
Sun, 20 Jan 2008 17:40:10 -0500 |
commit 773a3206b463e2ed21225e16e6401757d82eff21
Author: Michael W. Olson <address@hidden>
Date: Sun Jan 20 17:29:59 2008 -0500
Add module definitions for erc-dcc.el and erc-xdcc.el.
diff --git a/ChangeLog b/ChangeLog
index f18719d..3ba17ce 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2008-01-20 Michael Olson <address@hidden>
+
+ * erc-dcc.el, erc-xdcc.el: Add simple module definitions.
+
+ * erc.el (erc-modules): Add dcc and xdcc.
+
2008-01-19 Michael Olson <address@hidden>
* erc-bbdb.el (erc-bbdb-insinuate-and-show-entry): Work around bug
diff --git a/erc-dcc.el b/erc-dcc.el
index 243d09a..2aca064 100644
--- a/erc-dcc.el
+++ b/erc-dcc.el
@@ -60,6 +60,12 @@
(require 'cl)
(require 'pcomplete))
+;;;###autoload (autoload 'erc-dcc-mode "erc-dcc")
+(define-erc-module dcc nil
+ "Provide Direct Client-to-Client support for ERC."
+ ((add-hook 'erc-server-401-functions 'erc-dcc-no-such-nick))
+ ((remove-hook 'erc-server-401-functions 'erc-dcc-no-such-nick)))
+
(defgroup erc-dcc nil
"DCC stands for Direct Client Communication, where you and your
friend's client programs connect directly to each other,
@@ -1169,8 +1175,6 @@ other client."
(if (processp peer) (delete-process peer)))
nil))
-(add-hook 'erc-server-401-functions 'erc-dcc-no-such-nick)
-
(provide 'erc-dcc)
;;; erc-dcc.el ends here
diff --git a/erc-xdcc.el b/erc-xdcc.el
index a3b6aac..b58a7b6 100644
--- a/erc-xdcc.el
+++ b/erc-xdcc.el
@@ -62,6 +62,11 @@ being evaluated and should return stings."
:group 'erc-dcc
:type '(repeat (repeat :tag "Message" (choice string sexp))))
+;;;###autoload (autoload 'erc-xdcc-mode "erc-xdcc")
+(define-erc-module xdcc nil
+ "Act as an XDCC file-server."
+ nil nil)
+
;;;###autoload
(defun erc-xdcc-add-file (file)
"Add a file to `erc-xdcc-files'."
diff --git a/erc.el b/erc.el
index 7262c25..8994eb0 100644
--- a/erc.el
+++ b/erc.el
@@ -1844,6 +1844,7 @@ removed from the list will be disabled."
capab-identify)
(const :tag "completion: Complete nicknames and commands (programmable)"
completion)
+ (const :tag "dcc: Provide Direct Client-to-Client support" dcc)
(const :tag "hecomplete: Complete nicknames and commands (old)" hecomplete)
(const :tag "fill: Wrap long lines" fill)
(const :tag "identd: Launch an identd server on port 8113" identd)
@@ -1878,6 +1879,7 @@ removed from the list will be disabled."
(const :tag "track: Track channel activity in the mode-line" track)
(const :tag "truncate: Truncate buffers to a certain size" truncate)
(const :tag "unmorse: Translate morse code in messages" unmorse)
+ (const :tag "xdcc: Act as an XDCC file-server" xdcc)
(repeat :tag "Others" :inline t symbol))
:group 'erc)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Erc-commit] [commit][master] Add module definitions for erc-dcc.el and erc-xdcc.el.,
mwolson <=