Function: erc-stamp--find-insertion-point

erc-stamp--find-insertion-point is a byte-compiled function defined in erc-stamp.el.gz.

Signature

(erc-stamp--find-insertion-point P TARGET-TIME)

Documentation

Scan buffer backwards from P looking for TARGET-TIME.

Return P or, if found, a position less than P.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-stamp.el.gz
(defun erc-stamp--find-insertion-point (p target-time)
  "Scan buffer backwards from P looking for TARGET-TIME.
Return P or, if found, a position less than P."
  ;; Continue searching after encountering a message without a
  ;; timestamp because date stamps must be unique, and
  ;; "Re-establishing connection" messages should have stamps.
  (while-let ((q (previous-single-property-change (1- p) 'erc--ts))
              (qq (erc--get-inserted-msg-beg q))
              (ts (get-text-property qq 'erc--ts))
              ((not (time-less-p ts target-time))))
    (setq p qq))
  p)