From: ueno <ueno>
Date: Mon, 21 Feb 2000 20:23:53 +0000 (+0000)
Subject: * poe.el (subst-char-in-string): Remove.
X-Git-Tag: apel-10_2~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c7066a4d8cc8d41a39644cbc48e6a0b056ea2e04;p=elisp%2Fapel.git

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

diff --git a/ChangeLog b/ChangeLog
index c37d81f..0e77a9e 100644
--- 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
--- 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))
 
 
 ;;; @ Window commands emulation. (lisp/window.el)