From e326384cdaf490940cb472b26257a299ee109bad Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 30 Jun 1998 06:55:03 +0000 Subject: [PATCH] (bibtex-hide-entry-bodies): When entry bodies are hidden, the last entry is no longer omitted. --- lisp/textmodes/bibtex.el | 18 +++++++----------- 1 file changed, 7 insertions(+), 11 deletions(-) diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index 9ef23d7d74b..2d9e6764c5e 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el @@ -3005,19 +3005,15 @@ If mark is active it counts entries in region, if not in whole buffer." With prefix argument ARG, show all text." (interactive "P") (save-excursion - (bibtex-beginning-of-first-entry) (let ((buffer-read-only nil)) (if arg - (subst-char-in-region (point) (point-max) ?\r ?\n t) - (while (not (eobp)) - (subst-char-in-region - (point) - (progn - (re-search-forward "[\n\r]@" nil t) - (forward-line -1) - (point)) - ?\n ?\r t) - (forward-line 1))) + (subst-char-in-region (point-min) (point-max) ?\r ?\n t) + (let ((pos (point-max))) + (goto-char (point-max)) + (while (re-search-backward "^@" nil t) + (subst-char-in-region (point) pos ?\n ?\r t) + (if (not (bobp)) (forward-char -1)) + (setq pos (point))))) (setq selective-display (not arg))))) (defun bibtex-sort-buffer () -- 2.39.5