Function: erc-fill--wrap-massage-legacy-indicator-type

erc-fill--wrap-massage-legacy-indicator-type is a byte-compiled function defined in erc-fill.el.gz.

Signature

(erc-fill--wrap-massage-legacy-indicator-type)

Documentation

Migrate obsolete 5.6-git erc-fill-wrap-merge-indicator format.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-fill.el.gz
(defun erc-fill--wrap-massage-legacy-indicator-type ()
  "Migrate obsolete 5.6-git `erc-fill-wrap-merge-indicator' format."
  (pcase erc-fill-wrap-merge-indicator
    (`(post . ,_)
     (erc--warn-once-before-connect 'erc-fill-wrap-mode
       "The option `erc-fill-wrap-merge-indicator' has changed. Unfortunately,"
       " the `post' variant and related presets are no longer available."
       " Setting to nil for the current session. Apologies for the disruption."
       (setq erc-fill-wrap-merge-indicator nil)))
    (`(pre . ,(and (pred stringp) string))
     (erc--warn-once-before-connect 'erc-fill-wrap-mode
       "The format of option `erc-fill-wrap-merge-indicator' has changed"
       " from a cons of (pre . STRING) to STRING. Please update your settings."
       " Changing temporarily to \"" string "\" for the current session.")
     (setq erc-fill-wrap-merge-indicator string))
    (`(pre ,(and (pred characterp) char) ,face)
     (erc--warn-once-before-connect 'erc-fill-wrap-mode
       "The format of option `erc-fill-wrap-merge-indicator' has changed"
       " from (pre CHAR FACE) to a cons of (CHAR . FACE). Please update"
       " when possible. Changing temporarily to %S for the current session."
       (setq erc-fill-wrap-merge-indicator (cons char face))))))