Lines Matching +defs:list +defs:part
16 ;; This file is part of GNU Emacs.
79 "http://emacswiki.org/cgi-bin/wiki/ERC (mailing list: erc-discuss@gnu.org)"
108 (defgroup erc-quit-and-part nil
164 This can be either a string, or a list of strings.
165 In the latter case, if the first nick in the list is already in use,
166 other nicks are tried in the list order.
259 (defcustom erc-hide-list nil
289 See also `erc-server-JOIN-functions', `erc-part-hook'."
301 (defcustom erc-part-hook nil
314 See also `erc-server-PART-functions' and `erc-part-hook'."
439 list for this channel. If this user is not in the
440 `erc-channel-users' list of any other buffers, the user is also
441 removed from the server's `erc-server-users' list.
458 list as well as from all `erc-channel-users' lists.
501 (defun erc-get-channel-user-list ()
502 "Returns a list of users in the current channel. Each element
503 of the list is of the form (USER . CHANNEL-DATA), where USER is
515 (defun erc-get-server-nickname-list ()
516 "Returns a list of known nicknames on the current server."
527 (defun erc-get-channel-nickname-list ()
528 "Returns a list of known nicknames on the current channel."
561 (defun erc-sort-channel-users-by-activity (list)
565 See also: `erc-get-channel-user-list'."
566 (sort list
578 (defun erc-sort-channel-users-alphabetically (list)
582 See also: `erc-get-channel-user-list'."
583 (sort list
602 \(not sure the ban list will be here, but why not)")
678 "*Specifies a list of functions to call to echo a private
709 "*Specifies a list of functions to call to echo a private
800 (defcustom erc-ignore-list nil
808 (make-variable-buffer-local 'erc-ignore-list)
810 (defcustom erc-ignore-reply-list nil
813 This differs from `erc-ignore-list' in that it also ignores any
838 (defcustom erc-startup-file-list
853 directory in the list."
866 (defcustom erc-kill-buffer-on-part nil
870 :group 'erc-quit-and-part
875 See the variable `erc-kill-buffer-on-part' for details."
876 :group 'erc-quit-and-part
881 :group 'erc-quit-and-part
905 :group 'erc-quit-and-part
906 :type '(repeat (list regexp (choice (string) (function)))))
908 (defcustom erc-part-reason-various-alist nil
909 "Alist of possible arguments to the /part command.
914 If REGEXP matches the argument to /part, then its relevant RESULT
916 a function, it should return the part message as a string.
921 (setq erc-part-reason-various-alist
922 '((\"zippy\" erc-part-reason-zippy)
924 (\"version\" erc-part-reason-normal)
927 If the user types \"/part zippy\", then a Zippy the Pinhead quotation
928 will be used as the part message."
929 :group 'erc-quit-and-part
930 :type '(repeat (list regexp (choice (string) (function)))))
937 :group 'erc-quit-and-part
943 (defcustom erc-part-reason 'erc-part-reason-normal
948 :group 'erc-quit-and-part
949 :type '(choice (const erc-part-reason-normal)
950 (const erc-part-reason-zippy)
951 (const erc-part-reason-various)
1066 (list (byte-compile
1107 (define-key map "\C-c\C-p" 'erc-part-from-channel)
1212 ENABLE-BODY is a list of expressions used to enable the mode.
1213 DISABLE-BODY is a list of expressions used to disable the mode.
1250 (add-to-list 'erc-modules (quote ,name))
1576 (defun erc-member-ignore-case (string list)
1583 (while list
1584 (if (string= string (erc-downcase (car list)))
1585 (throw 'result list)
1586 (setq list (cdr list))))))
1637 "Return a list of `erc-mode' buffers matching certain criteria.
1654 (buffer-list)))))
1656 (defun erc-buffer-list (&optional predicate proc)
1657 "Return a list of ERC buffers.
1659 the predicate. If PREDICATE is passed as nil, return a list of all ERC
1679 (erc-buffer-list ,pre
1689 `erc-modified-channels-alist' in front of the buffer list.
1703 (erc-buffer-list
1715 (defun erc-channel-list (proc)
1716 "Return a list of channel buffers.
1725 (defun erc-buffer-list-with-nick (nick proc)
1726 "Return buffers containing NICK in the `erc-channel-users' list."
1762 (defvar erc-channel-list nil
1763 "Server channel list.")
1764 (make-variable-buffer-local 'erc-channel-list)
1775 "The local copy of `erc-nick' - the list of nicks to choose from.")
1794 "A list of modules which ERC should enable.
1797 removed from the list will be disabled."
1905 connect passwd tgt-list channel process)
1949 (setq erc-default-recipients tgt-list)
1971 ;; Server channel list
1972 (setq erc-channel-list ())
1977 ;; The local copy of `erc-nick' - the list of nicks to choose
1978 (setq erc-default-nicks (if (consp erc-nick) erc-nick (list erc-nick)))
2024 (defvar erc-server-history-list nil
2025 "IRC server interactive selection history list.")
2027 (defvar erc-nick-history-list nil
2028 "Nickname interactive selection history list.")
2035 (erc-buffer-list
2068 (erc-compute-server) nil nil 'erc-server-history-list))
2086 nil nil 'erc-nick-history-list)
2089 nil nil 'erc-nick-history-list))))
2111 nil nil 'erc-nick-history-list)))
2112 (list :server server :port port :nick nick :password passwd)))
2285 (buffer-undo-list t)
2313 (erc-update-undo-list (- (or (marker-position erc-insert-marker)
2317 (defun erc-update-undo-list (shift)
2318 ;; Translate buffer positions in buffer-undo-list by SHIFT.
2319 (unless (or (zerop shift) (atom buffer-undo-list))
2320 (let ((list buffer-undo-list) elt)
2321 (while list
2322 (setq elt (car list))
2324 (incf (car list) shift))
2342 (setq list (cdr list))))))
2355 The BUFFER can be an actual buffer, a list of buffers, 'all or 'active.
2365 ((bufferp buffer) (list buffer))
2367 ((processp buffer) (list (process-buffer buffer)))
2370 (erc-buffer-list nil erc-server-process))
2372 (list (erc-active-buffer)))
2374 (list (process-buffer erc-server-process)))
2375 (t (list (current-buffer)))))
2378 (add-to-list 'new-bufs buf)))
2423 (unless (member (erc-response.command parsed) erc-hide-list)
2428 (defun erc-message-type-member (position list)
2434 (and prop-val (member (erc-response.command prop-val) list))))
2453 "Return the argument list of a function without the parens."
2479 (let ((command-list (erc-extract-command-from-line line)))
2480 (if (and command-list
2482 (let* ((cmd (nth 0 command-list))
2483 (args (nth 1 command-list)))
2581 If no USER argument is specified, list the contents of `erc-ignore-list'."
2591 (erc-with-server-buffer (add-to-list 'erc-ignore-list user)))
2592 (if (null (erc-with-server-buffer erc-ignore-list))
2593 (erc-display-line (erc-make-notice "Ignore list is empty") 'active)
2594 (erc-display-line (erc-make-notice "Ignore list:") 'active)
2598 (erc-with-server-buffer erc-ignore-list))))
2602 "Remove the user specified in USER from the ignore list."
2605 erc-ignore-list)))))
2619 (setq erc-ignore-list (delete ignored-nick erc-ignore-list)))))
2708 For a list of user commands (/join /part, ...):
2755 (erc-channel-list erc-server-process))))
2769 "If non-nil, a names list is currently being received.
2778 This function clears the channel name list first, then sends the
2873 (add-to-list 'symlist
2879 (add-to-list 'symlist
2885 (add-to-list 'symlist
2891 (add-to-list 'symlist
2897 (add-to-list 'symlist
2903 (add-to-list 'symlist
2909 (add-to-list 'symlist
2995 A list of valid mode strings for Freenode may be found at
3050 (reason (funcall erc-part-reason (if (equal msg "") nil msg))))
3060 (reason (funcall erc-part-reason (if (equal msg "") nil msg))))
3097 (list (read-from-minibuffer "Start a query with: " nil)))
3133 (defun erc-part-reason-normal (&optional s)
3134 "Normal part message.
3142 (defun erc-part-reason-zippy (&optional s)
3143 "Zippy part message.
3149 (defun erc-part-reason-various (s)
3150 "Choose a part reason based on S (a string)."
3153 erc-part-reason-various-alist 'string-match))))
3158 (t (erc-part-reason-normal)))))
3365 "A list of bans seen for the current channel.
3371 or not the ban list has been requested from the server.")
3378 The ban list is fetched from the server if necessary."
3391 ;; fetch the ban list then callback
3420 (erc-make-notice (format "Ban list for channel: %s\n"
3439 (erc-display-line (erc-make-notice "End of Ban list")
3461 ;; fetch the ban list then callback
3482 (erc-group-list bans 3))))
3543 ;; shall remain part of the prompt.
3564 (setq buffer-undo-list nil)
3578 (defvar erc-action-history-list ()
3579 "History list for interactive action input.")
3586 "Action: " nil nil nil 'erc-action-history-list)))
3595 (list
3599 erc-channel-list)))
3605 (defun erc-part-from-channel (reason)
3608 (list
3618 (list
3624 (let ((topic-list (split-string topic "\C-o"))) ; strip off the topic setter
3625 (erc-cmd-TOPIC (concat (erc-default-target) " " (car topic-list)))))
3630 (interactive (list (read-from-minibuffer
3641 (interactive (list (read-from-minibuffer
3652 (interactive (list (read-from-minibuffer
3716 (setq res (append res (list x)))))
3731 (nconc erc-server-vectors (list parsed))
3748 (list target)
4006 `erc-buffer-list-with-nick'."
4007 (let ((buffers (erc-buffer-list-with-nick sender erc-server-process)))
4021 `erc-buffer-list-with-nick'."
4022 (let ((buffers (erc-buffer-list-with-nick sender erc-server-process)))
4023 (add-to-list 'buffers buffer)
4036 `erc-buffer-list-with-nick'."
4037 (let ((buffers (erc-buffer-list-with-nick sender erc-server-process)))
4078 ;; Remove the unbanned masks from the ban list
4087 ;; Add the banned mask(s) to the ban list
4097 (defun erc-group-list (list n)
4099 (cond ((null list) nil)
4100 ((null (nthcdr n list)) (list list))
4101 (t (cons (erc-subseq list 0 n) (erc-group-list (nthcdr n list) n)))))
4158 parsed (list 'notice 'error) proc 'ctcp-too-many)
4161 parsed (list 'notice 'error) proc
4187 parsed (list 'notice 'error) proc
4394 Used when a channel names list is about to be received. Should
4403 Used to fix `erc-channel-users' after a channel names list has been
4555 :buffers (list (current-buffer))))
4590 "Remove NICK from current channel membership list.
4598 "Remove NICK from CHANNEL's membership list.
4623 ;; list of triples: (mode-char 'on/'off argument)
4649 (defun erc-sort-strings (list-of-strings)
4653 (sort (copy-sequence list-of-strings) 'string<))
4656 "Parse MODE-STRING into a list.
4658 Returns a list of three elements:
4664 arg-modes is a list of triples of the form:
4674 (arg-modes nil); list of triples: (mode-char 'on/'off argument)
4676 ;; make the argument list
4686 (setq arg-modes (cons (list (car chars)
4692 (setq arg-modes (cons (list (car chars)
4704 (list add-modes remove-modes arg-modes))
4714 ;; list of triples: (mode-char 'on/'off argument)
4778 a list containing the original nickname, login name and hostname for the user,
4779 and L is a list containing additional TYPE-specific arguments.
4831 (defun erc-list (thing)
4832 "Return THING if THING is a list, or a list with THING as its element."
4835 (list thing)))
4840 Return a list of the three separate tokens."
4843 (list (match-string 1 string)
4848 (list (match-string 1 string)
4852 (list string "" ""))))
4861 &optional object value-list)
4867 (unless value-list
4868 (setq value-list (mapcar (lambda (x)
4873 properties value-list))
4969 (list line))))
5023 list of the form: (command args) where both elements are strings."
5036 (list cmd-fun arg))))
5039 "Split STRING, containing multiple lines and return them in a list.
5095 "Add CHANNEL to the default channel list."
5104 "Delete CHANNEL from the default channel list."
5114 "Add QUERY'd NICKNAME to the default channel list.
5136 "Return non-nil if SPEC matches something in `erc-ignore-list'.
5139 matches against all the regexp's in `erc-ignore-list'. If any
5142 (dolist (ignored (erc-with-server-buffer erc-ignore-list))
5148 "Return non-nil if MSG matches something in `erc-ignore-reply-list'.
5151 user matches any regexp in `erc-ignore-reply-list'."
5158 (erc-list-match erc-ignore-reply-list
5186 (defun erc-list-match (lst str)
5238 (arg (erc-load-irc-script-lines (list (concat "/mode " tgt " -i"))
5240 (t (erc-load-irc-script-lines (list (concat "/mode " tgt " +i"))
5296 (if tgt (erc-load-irc-script-lines (list (concat "/names " tgt)))
5311 specified in the list PATH.
5325 See also `erc-startup-file-list'."
5327 (dolist (f erc-startup-file-list)
5370 (arg-list nil)
5375 ;; First, compute the argument list
5378 (setq arg-list (cons (match-string 1 tmp) arg-list))
5380 (setq arg-list (nreverse arg-list))
5381 (setq arg-num (length arg-list))
5404 (if (<= n arg-num) (nth (1- n) arg-list) "")))
5429 "Load IRC script LINES (a list of strings).
5556 Returns a list of the form (HIGH LOW), compatible with Emacs time format."
5558 (list (truncate (/ n 65536))
5874 (list (format-spec erc-mode-line-format spec)))
5875 (setq modeline-process (list process-status)))
5878 (list (format-spec erc-mode-line-format spec)))
5879 (setq mode-line-process (list process-status))))
5913 (dolist (buf (erc-buffer-list))
5985 (let ((bufs (erc-buffer-list nil erc-server-process)))
6005 (list (symbol-name e)))
6252 (funcall erc-part-reason nil))