Function: erc-fill--wrap-continued-message-p

erc-fill--wrap-continued-message-p is a byte-compiled function defined in erc-fill.el.gz.

Signature

(erc-fill--wrap-continued-message-p)

Documentation

Return non-nil when the current speaker hasn't changed.

But only if the erc--msg text property also hasn't. That is, indicate whether the chat message just inserted is from the same person as the prior one and is formatted in the same manner. As a side effect, advance erc-fill--wrap-last-msg unless the message has been marked erc--ephemeral.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-fill.el.gz
(defun erc-fill--wrap-continued-message-p ()
  "Return non-nil when the current speaker hasn't changed.
But only if the `erc--msg' text property also hasn't.  That is,
indicate whether the chat message just inserted is from the same
person as the prior one and is formatted in the same manner.  As
a side effect, advance `erc-fill--wrap-last-msg' unless the
message has been marked `erc--ephemeral'."
  (and-let*
      (((not (erc--check-msg-prop 'erc--ephemeral)))
       ;; Always set/move `erc-fill--wrap-last-msg' from here on down.
       (m (or (and erc-fill--wrap-last-msg
                   (prog1 (marker-position erc-fill--wrap-last-msg)
                     (set-marker erc-fill--wrap-last-msg (point-min))))
              (ignore (setq erc-fill--wrap-last-msg (point-min-marker)))))
       ((>= (point) 4)) ; skip the first message
       (props (save-restriction
                (widen)
                (and-let* ((speaker (get-text-property m 'erc--spkr))
                           (type (get-text-property m 'erc--msg))
                           ((not (invisible-p m))))
                  (list (get-text-property m 'erc--ts) type speaker))))
       (ts (nth 0 props))
       (type (nth 1 props))
       (speaker (nth 2 props))
       ((not (time-less-p (erc-stamp--current-time) ts)))
       ((time-less-p (time-subtract (erc-stamp--current-time) ts)
                     erc-fill--wrap-max-lull))
       ((erc--check-msg-prop 'erc--msg type))
       ((erc-nick-equal-p speaker (erc--check-msg-prop 'erc--spkr))))))