* poe.el (subst-char-in-string): Remove.

diff --git a/ChangeLog b/ChangeLog
index c37d81f..0e77a9e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -12,7 +12,6 @@
        * poe.el (remassq): New function.
        (remassoc): New function.
        (remrassoc): New function.
-       (subst-char-in-string): New function.
        (get-buffer-window-list): New function.
        (save-selected-frame): New macro.
 

diff --git a/poe.el b/poe.el
index 18fb5b6..4e8628d 100644 (file)
--- a/poe.el
+++ b/poe.el
@@ -1108,19 +1108,6 @@ If PATTERN is omitted, it defaults to \"[ \\f\\t\\n\\r\\v]+\"."
       (setq parts (cons (substring string start (match-beginning 0)) parts)
            start (match-end 0)))
     (nreverse (cons (substring string start) parts))))
-
-;; Emacs 20.4 and later:
-;;  (subst-char-in-string FROMCHAR TOCHAR STRING &optional INPLACE)
-(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))
 \f
 
 ;;; @ Window commands emulation. (lisp/window.el)