[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Erc-commit] [commit][emacs22] erc-identd: Make it really work with Emac
From: |
mwolson |
Subject: |
[Erc-commit] [commit][emacs22] erc-identd: Make it really work with Emacs 22. |
Date: |
Sun, 14 Oct 2007 00:48:08 -0400 |
commit b6ea38211a1c804482c91f6baa8d6d6e6bf217c6
Author: Michael Olson <address@hidden>
Date: Sat Mar 25 06:12:41 2006 +0000
erc-identd: Make it really work with Emacs 22.
* erc-identd.el (erc-identd-start, erc-identd-stop): Add autoload
cookies.
(erc-identd-start): Pass :host parameter so this works with Emacs 22.
git-archimport-id: address@hidden/erc--cvs--0--patch-141
diff --git a/ChangeLog b/ChangeLog
index 1343da5..7f0d0e6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,9 @@
* erc-identd.el (erc-identd-start): Fix a bug by making sure that
erc-identd-process is set properly.
+ (erc-identd-start, erc-identd-stop): Add autoload cookies.
+ (erc-identd-start): Pass :host parameter so this works with Emacs
+ 22.
2006-03-21 Michael Olson <address@hidden>
diff --git a/erc-identd.el b/erc-identd.el
index 0b9532a..197d51c 100644
--- a/erc-identd.el
+++ b/erc-identd.el
@@ -1,6 +1,6 @@
;;; erc-identd.el --- RFC1413 (identd authentication protocol) server
-;; Copyright (C) 2003 Free Software Foundation, Inc.
+;; Copyright (C) 2003, 2006 Free Software Foundation, Inc.
;; Author: John Wiegley <address@hidden>
;; Keywords: comm, processes
@@ -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
@@ -64,11 +65,13 @@ system."
(if (fboundp 'make-network-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)))
+ :host 'local :service port
+ :server t :noquery t
+ :filter 'erc-identd-filter)
+ (open-network-stream-server "identd" (generate-new-buffer "identd")
+ port nil 'erc-identd-filter))))
+;;;###autoload
(defun erc-identd-stop (&rest ignore)
(interactive)
(when erc-identd-process
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Erc-commit] [commit][emacs22] erc-identd: Make it really work with Emacs 22.,
mwolson <=