;;; erc-networks.el --- IRC networks
-;; Copyright (C) 2002, 2004-2014 Free Software Foundation, Inc.
+;; Copyright (C) 2002, 2004-2016 Free Software Foundation, Inc.
;; Author: Mario Lang <mlang@lexx.delysid.org>
;; Maintainer: emacs-devel@gnu.org
HOST is the servers hostname and
PORTS is either a number, a list of numbers, or a list of port ranges."
:group 'erc-networks
- :type 'sexp)
+ :type '(alist :key-type (string :tag "Name")
+ :value-type
+ (group symbol (string :tag "Hostname")
+ (choice :tag "Ports"
+ (integer :tag "Port number")
+ (repeat :tag "List of ports or ranges"
+ (choice (integer :tag "Port number")
+ (list :tag "Port range"
+ integer integer)))))))
(defcustom erc-networks-alist
'((4-irc "4-irc.com")
(LagNet "lagnet.org.za")
(Librenet "librenet.net")
(LinkNet "link-net.org")
- (LinuxChix "cats\.meow\.at\\|linuxchix\.org")
+ (LinuxChix "cats\\.meow\\.at\\|linuxchix\\.org")
(Liquidized "liquidized.net")
(M-IRC "m-sys.org")
(MagicStar "magicstar.net")
numbers between LOW and HIGH (inclusive) is returned.
As an example:
- (erc-ports-list '(1)) => (1)
- (erc-ports-list '((1 5))) => (1 2 3 4 5)
- (erc-ports-list '(1 (3 5))) => (1 3 4 5)"
+ (erc-ports-list \\='(1)) => (1)
+ (erc-ports-list \\='((1 5))) => (1 2 3 4 5)
+ (erc-ports-list \\='(1 (3 5))) => (1 3 4 5)"
(let (result)
(dolist (p ports)
(cond ((numberp p)
;; indent-tabs-mode: t
;; tab-width: 8
;; End:
-