Function: erc-connection-established

erc-connection-established is a byte-compiled function defined in erc.el.gz.

Signature

(erc-connection-established PROC PARSED)

Documentation

Run just after connection.

Set user modes and run erc-after-connect hook.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc.el.gz
(defun erc-connection-established (proc parsed)
  "Run just after connection.

Set user modes and run `erc-after-connect' hook."
  (with-current-buffer (process-buffer proc)
    (unless erc-server-connected ; only once per session
      (let ((server (or erc-server-announced-name
                        (erc-response.sender parsed)))
            (nick (car (erc-response.command-args parsed)))
            (buffer (process-buffer proc)))
        (setq erc-server-connected t)
        (setq erc--server-last-reconnect-count erc-server-reconnect-count
              erc-server-reconnect-count 0)
        (erc-update-mode-line)
        (erc-set-initial-user-mode nick buffer)
        (erc-server-setup-periodical-ping buffer)
        (run-hook-with-args 'erc-after-connect server nick))))

  (when erc-unhide-query-prompt
    (erc-with-all-buffers-of-server proc
      nil ; FIXME use `erc--target' after bug#48598
      (when (and (erc-default-target)
                 (not (erc-channel-p (car erc-default-recipients))))
        (erc--unhide-prompt)))))