Function: erc--get-inserted-msg-beg-at

erc--get-inserted-msg-beg-at is a macro defined in erc.el.gz.

Signature

(erc--get-inserted-msg-beg-at POINT AT-START-P)

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc.el.gz
(defmacro erc--get-inserted-msg-beg-at (point at-start-p)
  (macroexp-let2* nil ((point point)
                       (at-start-p at-start-p))
    `(or (and ,at-start-p ,point)
         (let ((p (previous-single-property-change ,point 'erc--msg)))
           (cond
            ((and p (= p (1- ,point)) (get-text-property p 'erc--msg)) p)
            (p (1- p))
            ((and (null p)
                  (> ,point (point-min))
                  (get-text-property (1- point) 'erc--msg))
             (1- point)))))))