Lines Matching +defs:action +defs:alist
374 ;; This is an alist of the form (BUFFER . CHANNEL-DATA), where
538 (defun erc-get-server-nickname-alist ()
539 "Returns an alist of known nicknames on the current server."
550 (defun erc-get-channel-nickname-alist ()
551 "Returns an alist of known nicknames on the current channel."
884 (defcustom erc-quit-reason-various-alist nil
897 (setq erc-quit-reason-various-alist
908 (defcustom erc-part-reason-various-alist nil
921 (setq erc-part-reason-various-alist
1100 (define-key map "\C-c\C-d" 'erc-input-action)
1173 (defface erc-action-face '((t (:bold t)))
1225 \"This mode replaces incoming text according to `erc-replace-alist'.\"
1480 (defcustom erc-frame-alist nil
1482 A value of nil means to use `default-frame-alist'."
1689 `erc-modified-channels-alist' in front of the buffer list.
1709 (if (boundp 'erc-modified-channels-alist)
1710 (buffer-name (caar (last erc-modified-channels-alist)))
1894 (make-frame (or erc-frame-alist
1895 default-frame-alist)))
2258 (defun erc-send-action (tgt str &optional force)
2938 "Pose some action to a certain user.
2946 (erc-send-action dst s))
2952 "Send LINE as an action."
2957 (erc-send-action (erc-default-target) s))
3126 erc-quit-reason-various-alist 'string-match))))
3153 erc-part-reason-various-alist 'string-match))))
3367 Each ban is an alist of the form:
3578 (defvar erc-action-history-list ()
3579 "History list for interactive action input.")
3581 (defun erc-input-action ()
3582 "Interactively input a user action and send it to IRC."
3585 (let ((action (read-from-minibuffer
3586 "Action: " nil nil nil 'erc-action-history-list)))
3587 (if (not (string-match "^\\s-*$" action))
3588 (erc-send-action (erc-default-target) action))))
3887 (not (erc-is-message-ctcp-and-not-action-p msg))
3896 (defun erc-is-message-ctcp-and-not-action-p (message)
4201 parsed 'action buf
4291 nil '(notice action) 'active
4378 (erc-send-action
5617 (defconst erc-clientinfo-alist
5636 erc-clientinfo-alist))
5638 (let ((h (assoc (upcase s) erc-clientinfo-alist)))
5772 :type 'alist)
5787 (let ((alist erc-common-server-suffixes))
5788 (while alist
5790 (if (re-search-forward (caar alist) nil t)
5791 (replace-match (cdar alist)))
5792 (setq alist (cdr alist))))