Function: subst-char-in-string

subst-char-in-string is a byte-compiled function defined in subr.el.gz.

Signature

(subst-char-in-string FROMCHAR TOCHAR STRING &optional INPLACE)

Documentation

Replace FROMCHAR with TOCHAR in STRING each time it occurs.

Unless optional argument INPLACE is non-nil, return a new string.

Aliases

semantic-subst-char-in-string (obsolete since 28.1)

Source Code

;; Defined in /usr/src/emacs/lisp/subr.el.gz
;;;; Replacement in strings.

(defun subst-char-in-string (fromchar tochar string &optional inplace)
  "Replace FROMCHAR with TOCHAR in STRING each time it occurs.
Unless optional argument INPLACE is non-nil, return a new string."
  (let ((i (length string))
	(newstr (if inplace string (copy-sequence string))))
    (while (> i 0)
      (setq i (1- i))
      (if (eq (aref newstr i) fromchar)
	  (aset newstr i tochar)))
    newstr))