diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-12-23 04:55:44 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-12-23 04:55:44 +0000 |
| commit | 23e62b22f520c784c6abee5394f56b1de5941214 (patch) | |
| tree | f4fc02298f6bb51a2baedaa0fff02a2135ce82cd /lisp/allout.el | |
| parent | 088f8c77175185ff892f2befab7169d9721b8106 (diff) | |
| download | emacs-23e62b22f520c784c6abee5394f56b1de5941214.tar.gz | |
(outline-copy-exposed): Don't use replace-regexp.
Diffstat (limited to 'lisp/allout.el')
| -rw-r--r-- | lisp/allout.el | 8 |
1 files 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 <klm@nist.gov> ;;;_ - Maintainer: Ken Manheimer <klm@nist.gov> ;;;_ - 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)) ) ) |