Function: erc--mask-secrets

erc--mask-secrets is a byte-compiled function defined in erc.el.gz.

Signature

(erc--mask-secrets STRING)

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc.el.gz
(defun erc--mask-secrets (string)
  (when-let* ((eot (length string))
              (beg (text-property-any 0 eot 'erc-secret t string))
              (end (text-property-not-all beg eot 'erc-secret t string))
              (sec (substring string beg end)))
    (setq string (concat (substring string 0 beg)
                         (make-string 10 ??)
                         (substring string end eot)))
    (put-text-property beg (+ 10 beg) 'face 'erc-inverse-face string)
    (put-text-property beg (+ 10 beg) 'display sec string))
  string)