comparison lisp/erc/erc-networks.el @ 76856:2fae574a2382

Release ERC 5.2. I have updated the version of ERC to 5.2, since it fixes a bug with C-c C-SPC being bound globally by default. For the full list of changes in this version, see etc/ERC-NEWS. Revision: [e-mail]/emacs--devo--0--patch-687 Creator: Michael Olson <[e-mail]>

76855:e6686c0a3d45

  ("Nightstar: Random server" NightStar "irc.nightstar.net" ((6665 6669)))
  ("NitrousNet: Random server" NitrousNet "irc.nitrousnet.net" 6667)
  ("Novernet: Random server" Novernet "irc.novernet.com" ((6665 6669) 7000 ))
  ("Nullrouted: Random server" Nullrouted "irc.nullrouted.org" ((6666 6669) 7000 ))
  ("NullusNet: Random server" NullusNet "irc.nullus.net" 6667)
  ("OpChat: Random server" OpChat "irc.opchat.org" ((6667 6669)))
  ("Othernet: Random server" Othernet "irc.othernet.org" 6667)
  ("Othernet: US, FL, Miami" Othernet "miami.fl.us.othernet.org" 6667)
  ("Othernet: US, MO, StLouis" Othernet "stlouis.mo.us.othernet.org" 6667)
  ("Otherside: Random server" OtherSide "irc.othersideirc.net" 6667)

    (NightStar "nightstar.net")
    (NitrousNet "nitrousnet.net")
    (Novernet "novernet.com")
    (Nullrouted "nullrouted.org")
    (NullusNet "nullus.net")
    (OpChat "opchat.org")
    (Openprojects "openprojects.net")
    (Othernet "othernet.org")
    (OtherSide "othersideirc.net")
    (Outsiderz "outsiderz.com")

	     do (return name)))
     'Unknown)))

(defun erc-network ()
  "Return the value of `erc-network' for the current server."
  (with-current-buffer (erc-server-buffer) erc-network))

(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)
    (intern (downcase (symbol-name erc-network)))))

(erc-make-obsolete 'erc-current-network 'erc-network
		   "Obsolete since erc-networks 1.5")

(defun erc-network-name ()
  "Returns the name of the current network as a string."
  (with-current-buffer (erc-server-buffer) (symbol-name erc-network)))

(defun erc-set-network-name (proc parsed)
  "Set `erc-network' to the value returned by `erc-determine-network'."
  (unless erc-server-connected
    (setq erc-network (erc-determine-network)))

76856:2fae574a2382

  ("Nightstar: Random server" NightStar "irc.nightstar.net" ((6665 6669)))
  ("NitrousNet: Random server" NitrousNet "irc.nitrousnet.net" 6667)
  ("Novernet: Random server" Novernet "irc.novernet.com" ((6665 6669) 7000 ))
  ("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)
  ("Othernet: US, FL, Miami" Othernet "miami.fl.us.othernet.org" 6667)
  ("Othernet: US, MO, StLouis" Othernet "stlouis.mo.us.othernet.org" 6667)
  ("Otherside: Random server" OtherSide "irc.othersideirc.net" 6667)

    (NightStar "nightstar.net")
    (NitrousNet "nitrousnet.net")
    (Novernet "novernet.com")
    (Nullrouted "nullrouted.org")
    (NullusNet "nullus.net")
    (OFTC "oftc.net")
    (OpChat "opchat.org")
    (Openprojects "openprojects.net")
    (Othernet "othernet.org")
    (OtherSide "othersideirc.net")
    (Outsiderz "outsiderz.com")

	     do (return name)))
     'Unknown)))

(defun erc-network ()
  "Return the value of `erc-network' for the current server."
  (erc-with-server-buffer erc-network))

(defun erc-current-network ()
  "Deprecated.  Use `erc-network' instead.  Return the name of this server's
network as a symbol."
  (erc-with-server-buffer
    (intern (downcase (symbol-name erc-network)))))

(erc-make-obsolete 'erc-current-network 'erc-network
		   "Obsolete since erc-networks 1.5")

(defun erc-network-name ()
  "Returns the name of the current network as a string."
  (erc-with-server-buffer (symbol-name erc-network)))

(defun erc-set-network-name (proc parsed)
  "Set `erc-network' to the value returned by `erc-determine-network'."
  (unless erc-server-connected
    (setq erc-network (erc-determine-network)))