mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

(outline-copy-exposed): Don't use replace-regexp.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-12-23 04:55:44 +00:00
parent 088f8c7717
commit 23e62b22f5
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/allout.el
View File

@ -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))
)
)