Function: erc-stamp--reset-on-clear

erc-stamp--reset-on-clear is a byte-compiled function defined in erc-stamp.el.gz.

Signature

(erc-stamp--reset-on-clear POS)

Documentation

Forget last-inserted stamps when POS is at insert marker.

And discard stale references in erc-stamp--date-stamps.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-stamp.el.gz
(defun erc-stamp--reset-on-clear (pos)
  "Forget last-inserted stamps when POS is at insert marker.
And discard stale references in `erc-stamp--date-stamps'."
  (when erc-stamp--date-stamps
    (setq erc-stamp--date-stamps
          (seq-filter (lambda (o) (> (erc-stamp--date-marker o) pos))
                      erc-stamp--date-stamps)))
  (when (= pos (1- erc-insert-marker))
    (when erc-stamp--date-mode
      (add-hook 'erc-stamp--insert-date-hook
                #'erc-stamp--update-saved-position 0 t))
    (setq erc-timestamp-last-inserted nil
          erc-timestamp-last-inserted-left nil
          erc-timestamp-last-inserted-right nil)))