From c7066a4d8cc8d41a39644cbc48e6a0b056ea2e04 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 21 Feb 2000 20:23:53 +0000 Subject: [PATCH] * poe.el (subst-char-in-string): Remove. --- ChangeLog | 1 - poe.el | 13 ------------- 2 files changed, 14 deletions(-) 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) -- 1.7.10.4