Function: erc-ctcp-reply-PING

erc-ctcp-reply-PING is a byte-compiled function defined in erc.el.gz.

Signature

(erc-ctcp-reply-PING PROC NICK LOGIN HOST TO MSG)

Documentation

Handle a CTCP PING reply.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc.el.gz
(defun erc-ctcp-reply-PING (_proc nick _login _host _to msg)
  "Handle a CTCP PING reply."
  (if (not (string-match "^PING\\s-+\\([0-9.]+\\)" msg))
      nil
    (let ((time (match-string 1 msg)))
      (condition-case nil
          (let ((delta (erc-time-diff (string-to-number time) nil)))
            (erc-display-message
             nil 'notice 'active
             'CTCP-PING ?n nick
             ?t (erc-sec-to-time delta)))
        (range-error
         (erc-display-message
          nil 'error 'active
          'bad-ping-response ?n nick ?t time))))))