Lines Matching +defs:range +defs:list
50 ;; /dcc list - List all DCC offers/connections
78 (defvar erc-dcc-list nil
104 (defun erc-dcc-list-add (type nick peer parent &rest args)
105 "Add a new entry of type TYPE to `erc-dcc-list' and return it."
107 (setq erc-dcc-list
109 (append (list :nick nick :type type :peer peer :parent parent) args)
110 erc-dcc-list))))
113 ;; more: the entry data from erc-dcc-list for this particular process.
144 (dcc-list-head . "DCC: From Type Active Size Filename")
145 (dcc-list-line . "DCC: -------- ---- ------ ------------ --------")
146 (dcc-list-item . "DCC: %-8n %-4t %-6a %-12s %f")
147 (dcc-list-end . "DCC: End of list.")
159 "Return the first matching entry in `erc-dcc-list' which satisfies the
166 (let ((list erc-dcc-list)
168 ;; for each element in erc-dcc-list
169 (while (and list (not result))
170 (let ((elt (car list))
182 ;; next element of the list
195 (setq list (cdr list)))))
219 (mapconcat #'identity (make-list 4 "\\([0-9]\\{1,3\\}\\)") "\\.")
233 (error "%d out of range" n))))
264 :type (list 'choice (list 'const :tag "Auto-detect" nil)
265 (list 'string :tag "IP-address"
288 (defcustom erc-dcc-port-range nil
290 If set to a cons, it specifies a range of ports to use in the form (min . max)"
294 (cons :tag "Port range"
302 string \".*!.*@.*\" to this list."
309 (let ((port (or (and erc-dcc-port-range (car erc-dcc-port-range)) t))
310 (upper (and erc-dcc-port-range (cdr erc-dcc-port-range)))
331 (error "No available ports in erc-dcc-port-range")))))
342 ;; change the entry in erc-dcc-list from the listening process to the
375 (pcomplete-here (append '("chat" "close" "get" "list")
383 erc-dcc-list)))
386 erc-dcc-list) :test 'string=))
391 erc-dcc-list)))
402 erc-dcc-list)))
408 erc-dcc-list)))
446 (setq erc-dcc-list (delq ret erc-dcc-list))
481 "This is the handler for the /dcc list command.
482 It lists the current state of `erc-dcc-list' in an easy to read manner."
483 (let ((alist erc-dcc-list)
487 'dcc-list-head)
490 'dcc-list-line)
504 'dcc-list-item
524 'dcc-list-end)
568 `erc-dcc-list'."
594 (erc-dcc-list-add
601 (erc-dcc-get-file (car erc-dcc-list) filename proc))))
660 (erc-dcc-list-add
674 "Holds the `erc-dcc-list' entry for this DCC connection.")
733 (setq erc-dcc-list (delete elt erc-dcc-list))
803 (erc-dcc-list-add
899 (setq erc-dcc-list (delete erc-dcc-entry-data erc-dcc-list))
1011 (erc-dcc-list-add 'OCHAT nick sproc pproc)
1091 `erc-dcc-list'"
1095 (setq erc-dcc-list (delq erc-dcc-entry-data erc-dcc-list))
1125 (setq erc-dcc-list (delq elt erc-dcc-list))