[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/erc/erc-identd.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/erc/erc-identd.el |
Date: |
Mon, 27 Mar 2006 11:27:47 +0000 |
Index: emacs/lisp/erc/erc-identd.el
diff -u emacs/lisp/erc/erc-identd.el:1.2 emacs/lisp/erc/erc-identd.el:1.3
--- emacs/lisp/erc/erc-identd.el:1.2 Sun Feb 12 20:25:00 2006
+++ emacs/lisp/erc/erc-identd.el Mon Mar 27 11:27:46 2006
@@ -46,6 +46,7 @@
system-type (user-login-name)))
(process-send-eof erc-identd-process)))))
+;;;###autoload
(defun erc-identd-start (&optional port)
"Start an identd server listening to port 8113.
Port 113 (auth) will need to be redirected to port 8113 on your
@@ -60,15 +61,14 @@
(setq port (string-to-number port))))
(if erc-identd-process
(delete-process erc-identd-process))
- (if (fboundp 'make-network-process)
- (setq erc-identd-process
- (make-network-process :name "identd"
- :buffer (generate-new-buffer "identd")
- :service port :server t :noquery t
- :filter 'erc-identd-filter))
- (open-network-stream-server "identd" (generate-new-buffer "identd")
- port nil 'erc-identd-filter)))
+ (setq erc-identd-process
+ (make-network-process :name "identd"
+ :buffer (generate-new-buffer "identd")
+ :host 'local :service port
+ :server t :noquery t
+ :filter 'erc-identd-filter)))
+;;;###autoload
(defun erc-identd-stop (&rest ignore)
(interactive)
(when erc-identd-process
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/erc/erc-identd.el,
Miles Bader <=