Mercurial > emacs
changeset 5310:fe3bea12d381
(outline-copy-exposed): Don't use replace-regexp.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 23 Dec 1993 04:55:44 +0000 |
| parents | dc1a3f9ea36d |
| children | da52825a3880 |
| files | lisp/allout.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/allout.el Thu Dec 23 04:54:37 1993 +0000 +++ b/lisp/allout.el Thu Dec 23 04:55:44 1993 +0000 @@ -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 @@ (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)) ) )