From 23e62b22f520c784c6abee5394f56b1de5941214 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 23 Dec 1993 04:55:44 +0000 Subject: [PATCH] (outline-copy-exposed): Don't use replace-regexp. --- lisp/allout.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/allout.el b/lisp/allout.el index b76d90c7b2d..1dd8757b306 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -11,7 +11,7 @@ ;;;_ - Author: Ken Manheimer ;;;_ - Maintainer: Ken Manheimer ;;;_ - Created: Dec 1991 - first release to usenet -;;;_ - Version: $Id: allout.el,v 1.2 1993/06/07 18:48:08 rms Exp jimb $|| +;;;_ - Version: $Id: allout.el,v 1.3 1993/06/09 11:51:08 jimb Exp $|| ;;;_ - Keywords: outline mode ;;;_ - LCD Archive Entry @@ -19,7 +19,7 @@ ;; LCD Archive Entry: ;; allout|Ken Manheimer|klm@nist.gov ;; |A more thorough outline-mode -;; |27-May-1993|$Id: allout.el,v 1.2 1993/06/07 18:48:08 rms Exp jimb $|| +;; |27-May-1993|$Id: allout.el,v 1.3 1993/06/09 11:51:08 jimb Exp $|| ;;;_ - Description ;; A full-fledged outline mode, based on the original rudimentary @@ -2465,7 +2465,9 @@ parameterized communication between the two, if suitable.") (pop-to-buffer workbuf) (erase-buffer) (insert-buffer buf) - (replace-regexp "\^M[^\^M\^J]*" "") + ;; (replace-regexp "\^M[^\^M\^J]*" "") + (while (re-search-forward "\^M[^\^M\^J]*" nil t) + (replace-match "" nil nil)) (goto-char (point-min)) ) ) -- 2.39.5