mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00
Code Issues Projects Releases Wiki Activity

(bibtex-hide-entry-bodies): When entry

Browse source 
bodies are hidden, the last entry is no longer omitted.
This commit is contained in:
Richard M. Stallman 1998-06-30 06:55:03 +00:00
parent 470a48acec
commit e326384cda
1 changed files with 7 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/textmodes/bibtex.el
View file

@ -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 ()