procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lisp/textmodes/bibtex.el: fix bibtex-beginning-of-entry (bug#56636)

Browse source 
lisp/textmodes/bibtex.el (bibtex-beginning-of-entry):
use bibtex-any-entry-maybe-empty-head (bug#56636)
This commit is contained in:
Roland Winkler 2022-12-29 23:31:08 -06:00
parent ab38abfdf7
commit 644c71d678
1 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/textmodes/bibtex.el
View file

@ -4083,11 +4083,19 @@ INIT is surrounded by field delimiters, unless NODELIM is non-nil."
If inside an entry, move to the beginning of it, otherwise move to the
beginning of the previous entry. If point is ahead of all BibTeX entries
move point to the beginning of buffer. Return the new location of point."
;; This command is similar to `beginning-of-defun', but with historical
;; differences.
;; - It does not move point to the previous entry if point is already
;; at the beginning of an entry
;; - It does not take an optional ARG that moves backward to the beginning
;; of a defun ARG times.
;; - It returns point and the code relies on this.
(interactive)
(skip-chars-forward " \t")
(if (looking-at "@")
(forward-char))
(re-search-backward "^[ \t]*@" nil 'move)
(beginning-of-line)
;; `bibtex-any-valid-entry-type' would fail if users "disable"
;; an entry by chosing an invalid entry type.
(or (looking-at bibtex-any-entry-maybe-empty-head)
(re-search-backward bibtex-any-entry-maybe-empty-head nil 'move))
(point))
(defun bibtex-end-of-entry ()