Changeset 4111 for trunk/lisp/erc/erc-identd.el

Timestamp:

2006年07月16日 08時36分52秒 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/erc/erc-identd.el (modified) (2 diffs)

trunk/lisp/erc/erc-identd.el

@@ -25 +25 @@
-;;; Commentary:
-
-You can have a local identd server (running on port 8113; I use DNAT
-to bind 113->8113) if you add this to .emacs.el:
+This module allows you to run a local identd server on port 8113.
+You will need to set up DNAT to bind 113->8113, or use a proxy.
-
-
-
+
+
+
+
+
+
+
+
-
-;;; Code:
-
+(require 'erc)
+
-(defvar erc-identd-process nil)
+
+;;;###autoload (autoload 'erc-identd-mode "erc-identd")
+(define-erc-module identd nil
+  "This mode launches an identd server on port 8113."
+  ((add-hook 'erc-connect-pre-hook 'erc-identd-start)
+   (add-hook 'erc-disconnected-hook 'erc-identd-stop))
+  ((remove-hook 'erc-connect-pre-hook 'erc-identd-start)
+   (remove-hook 'erc-disconnected-hook 'erc-identd-stop)))
-
-(defun erc-identd-filter (proc string)
@@ -64 +80 @@
-  (setq erc-identd-process
-        (make-network-process :name "identd"
-(generate-new-buffer "identd")
+nil
-                              :host 'local :service port
-
-
+
+
+
-
-;;;###autoload