Changeset 4200 for trunk/lisp/erc/erc-networks.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-networks.el (modified) (4 diffs)

trunk/lisp/erc/erc-networks.el

@@ -318 +318 @@
-  ("Nullrouted: Random server" Nullrouted "irc.nullrouted.org" ((6666 6669) 7000 ))
-  ("NullusNet: Random server" NullusNet "irc.nullus.net" 6667)
+  ("OFTC: Random server" OFTC "irc.oftc.net" ((6667 6670) 7000))
-  ("OpChat: Random server" OpChat "irc.opchat.org" ((6667 6669)))
-  ("Othernet: Random server" Othernet "irc.othernet.org" 6667)
@@ -612 +613 @@
-    (Nullrouted "nullrouted.org")
-    (NullusNet "nullus.net")
+    (OFTC "oftc.net")
-    (OpChat "opchat.org")
-    (Openprojects "openprojects.net")
@@ -738 +740 @@
-(defun erc-network ()
-  "Return the value of `erc-network' for the current server."
-with-current-buffer (erc-server-buffer)
+erc-with-server-buffer
-
-(defun erc-current-network ()
-  "Deprecated.  Use `erc-network' instead.  Return the name of this server's
-network as a symbol."
-with-current-buffer (erc-server-buffer)
+erc-with-server-buffer
-    (intern (downcase (symbol-name erc-network)))))
-
@@ -751 +753 @@
-(defun erc-network-name ()
-  "Returns the name of the current network as a string."
-with-current-buffer (erc-server-buffer)
+erc-with-server-buffer
-
-(defun erc-set-network-name (proc parsed)