Function: erc-fill--wrap-insert-merged-pre

erc-fill--wrap-insert-merged-pre is a byte-compiled function defined in erc-fill.el.gz.

Signature

(erc-fill--wrap-insert-merged-pre)

Documentation

Add display text property to speaker.

Also cover region with text prop erc-fill--wrap-merge set to t.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-fill.el.gz
(defun erc-fill--wrap-insert-merged-pre ()
  "Add `display' text property to speaker.
Also cover region with text prop `erc-fill--wrap-merge' set to t."
  (if erc-fill--wrap-merge-indicator-pre
      (progn
        (add-text-properties (point-min) (point)
                             (list 'display
                                   (car erc-fill--wrap-merge-indicator-pre)
                                   'erc-fill--wrap-merge t))
        (cdr erc-fill--wrap-merge-indicator-pre))
    (let* ((option erc-fill-wrap-merge-indicator)
           (s (if (stringp option)
                  (concat option)
                (concat (propertize (string (car option))
                                    'font-lock-face (cdr option))
                        " "))))
      (add-text-properties (point-min) (point)
                           (list 'display s 'erc-fill--wrap-merge t))
      (cdr (setq erc-fill--wrap-merge-indicator-pre
                 (cons s (erc-fill--wrap-measure (point-min) (point))))))))