diff options
| author | Glenn Morris <rgm@gnu.org> | 2016-01-30 11:48:18 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2016-01-30 11:51:10 -0800 |
| commit | 0fac75fed1c7d61858bef15e951bf9a0835d5bac (patch) | |
| tree | bf2d4471a9933147fa22e717e55f82ef18483f6a /lisp/erc/erc-networks.el | |
| parent | 2df0e04296b73d212875ce46c8734ec255496a78 (diff) | |
| download | emacs-0fac75fed1c7d61858bef15e951bf9a0835d5bac.tar.gz | |
Improve the custom type of some user options.
* lisp/desktop.el (desktop-minor-mode-table):
* lisp/man.el (Man-frame-parameters):
* lisp/midnight.el (midnight-delay):
* lisp/speedbar.el (speedbar-select-frame-method):
* lisp/tooltip.el (tooltip-frame-parameters):
* lisp/tree-widget.el (tree-widget-space-width):
* lisp/type-break.el (type-break-keystroke-threshold):
* lisp/woman.el (woman-imenu-generic-expression):
* lisp/cedet/ede.el (ede-debug-program-function):
* lisp/cedet/ede/project-am.el (project-am-debug-target-function):
* lisp/emulation/viper-keym.el (viper-toggle-key):
* lisp/erc/erc-networks.el (erc-server-alist):
* lisp/gnus/message.el (message-deletable-headers, message-signature):
* lisp/mail/mailalias.el (mail-directory-stream):
* lisp/play/tetris.el (tetris-x-colors):
* lisp/progmodes/gud.el (gud-tooltip-modes): Improve custom type.
Diffstat (limited to 'lisp/erc/erc-networks.el')
| -rw-r--r-- | lisp/erc/erc-networks.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/erc/erc-networks.el b/lisp/erc/erc-networks.el index c859a48a79a..f911d6438be 100644 --- a/lisp/erc/erc-networks.el +++ b/lisp/erc/erc-networks.el @@ -443,7 +443,15 @@ NET is a symbol indicating to which network from `erc-networks-alist' this 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") |