Function: nnheader-replace-duplicate-chars-in-string

nnheader-replace-duplicate-chars-in-string is a byte-compiled function defined in nnheader.el.gz.

Signature

(nnheader-replace-duplicate-chars-in-string STRING FROM TO)

Documentation

Replace characters in STRING from FROM to TO.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnheader.el.gz
(defun nnheader-replace-duplicate-chars-in-string (string from to)
  "Replace characters in STRING from FROM to TO."
  (let ((string (substring string 0))	;Copy string.
	(len (length string))
	(idx 0) prev i)
    ;; Replace all occurrences of FROM with TO.
    (while (< idx len)
      (setq i (aref string idx))
      (when (and (eq prev from) (= i from))
	(aset string (1- idx) to)
	(aset string idx to))
      (setq prev i)
      (setq idx (1+ idx)))
    string))