Commit 088f8c77 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 59755461
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment