From 088f8c77175185ff892f2befab7169d9721b8106 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 23 Dec 1993 04:54:37 +0000 Subject: [PATCH] (hide-bibtex-entry-bodies): Don't use replace-regexp. --- lisp/textmodes/bibtex.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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)))) -- 2.39.5