Function: erc--keep-place-indicator-adjust-on-clear

erc--keep-place-indicator-adjust-on-clear is a byte-compiled function defined in erc-goodies.el.gz.

Signature

(erc--keep-place-indicator-adjust-on-clear BEG END)

Documentation

Either shrink region bounded by BEG to END to preserve overlay, or reset.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-goodies.el.gz
(defun erc--keep-place-indicator-adjust-on-clear (beg end)
  "Either shrink region bounded by BEG to END to preserve overlay, or reset."
  (when-let* ((pos (overlay-start erc--keep-place-indicator-overlay))
              ((<= beg pos end)))
    (if (and erc-keep-place-indicator-truncation
             (not erc--called-as-input-p))
        (when-let* ((pos (erc--get-inserted-msg-beg pos)))
          (set-marker end pos))
      (let (erc--keep-place-move-hook)
        ;; Move earlier than `beg', which may delimit date stamps, etc.
        (erc-keep-place-move (point-min))))))