Function: rcirc-put-nick-channel

rcirc-put-nick-channel is a byte-compiled function defined in rcirc.el.gz.

Signature

(rcirc-put-nick-channel PROCESS NICK CHANNEL &optional LINE)

Documentation

Add CHANNEL to list associated with NICK.

Update the associated linestamp if LINE is non-nil.

If the record doesn't exist, and LINE is nil, set the linestamp to zero. PROCESS is the process object for the current connection.

Source Code

;; Defined in /usr/src/emacs/lisp/net/rcirc.el.gz
(defun rcirc-put-nick-channel (process nick channel &optional line)
  "Add CHANNEL to list associated with NICK.
Update the associated linestamp if LINE is non-nil.

If the record doesn't exist, and LINE is nil, set the linestamp
to zero.  PROCESS is the process object for the current connection."
  (let ((nick (rcirc-user-nick nick)))
    (with-rcirc-process-buffer process
      (let* ((chans (gethash nick rcirc-nick-table))
             (record (assoc-string channel chans t)))
        (if record
            (when line (setcdr record line))
          (puthash nick (cons (cons channel (or line 0))
                              chans)
                   rcirc-nick-table))))))