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

Timestamp:

04/07/07 15:49:28 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

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

trunk/lisp/erc/erc-identd.el

@@ -43 +43 @@
-(defvar erc-identd-process nil)
-
+(defgroup erc-identd nil
+  "Run a local identd server."
+  :group 'erc)
+
+(defcustom erc-identd-port 8113
+  "Port to run the identd server on if not specified in the argument for
+`erc-identd-start'.
+
+This can be either a string or a number."
+  :group 'erc-identd
+  :type '(choice (const :tag "None" nil)
+                 (integer :tag "Port number")
+                 (string :tag "Port string")))
+
-;;;###autoload (autoload 'erc-identd-mode "erc-identd")
-(define-erc-module identd nil
-  "This mode launches an identd server on port 8113."
-
+quick
-   (add-hook 'erc-disconnected-hook 'erc-identd-stop))
-
+quick
-   (remove-hook 'erc-disconnected-hook 'erc-identd-stop)))
-
@@ -72 +86 @@
-system."
-  (interactive (list (read-string "Serve identd requests on port: " "8113")))
-
-
-
-
-
-
+
+
+
+
+
-  (setq erc-identd-process
-        (make-network-process :name "identd"
@@ -85 +98 @@
-                              :filter 'erc-identd-filter))
-  (set-process-query-on-exit-flag erc-identd-process nil))
+
+(defun erc-identd-quickstart (&rest ignored)
+  "Start the identd server with the default port.
+The default port is specified by `erc-identd-port'."
+  (erc-identd-start))
-
-;;;###autoload