# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 899189703 0
# Node ID 4934aaa2055c33c84abc901b65acb4f8357dd766
# Parent  3b7f1e026bebb5e9b5d8e6a8f2c2a590aeaa4c67
(bibtex-hide-entry-bodies): When entry
bodies are hidden, the last entry is no longer omitted.

diff -r 3b7f1e026beb -r 4934aaa2055c lisp/textmodes/bibtex.el
--- a/lisp/textmodes/bibtex.el	Tue Jun 30 03:10:18 1998 +0000
+++ b/lisp/textmodes/bibtex.el	Tue Jun 30 06:55:03 1998 +0000
@@ -3005,19 +3005,15 @@
 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 ()