From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 23 Dec 1993 04:54:37 +0000 (+0000)
Subject: (hide-bibtex-entry-bodies): Don't use replace-regexp.
X-Git-Tag: emacs-19.34~10542
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=088f8c77175185ff892f2befab7169d9721b8106;p=emacs.git

(hide-bibtex-entry-bodies): Don't use replace-regexp.
---

diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 19a7561eeb5..4d7e5908005 100644
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -797,7 +797,10 @@ With argument, show all text."
       (if arg
 	  (subst-char-in-region (point) (point-max) ?\r ?\n t)
 	(while (save-excursion (re-search-forward "\n[^@]" (point-max) t))
-	  (save-excursion (replace-regexp "\n\\([^@]\\)" "\r\\1"))))
+	  ;; (save-excursion (replace-regexp "\n\\([^@]\\)" "\r\\1"))
+	  (save-excursion
+	    (while (re-search-forward "\n\\([^@]\\)" nil t)
+	      (replace-match "\r\\1" nil nil)))))
       (setq selective-display (not arg))
       (set-buffer-modified-p modifiedp))))