From d221c02fa1db17e1275687f0bbce4ff1499119a1 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 10 May 2022 07:05:43 +0200 Subject: [PATCH] Fix bibtex-map-entries regression at bobp * lisp/textmodes/bibtex.el (bibtex-map-entries): Fix regression introduced by c32e8b33f (bug#55342) -- don't fail when the first entry is at bobp. --- lisp/textmodes/bibtex.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index 62a4af13774..544e0da8276 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el @@ -2298,11 +2298,11 @@ is non-nil, FUN is not called for @String entries." (set-marker-insertion-type end-marker t) (save-excursion (goto-char (point-min)) - (let ((prev (point))) + (let ((prev nil)) (while (setq found (bibtex-skip-to-valid-entry)) ;; If we have invalid entries, ensure that we have forward ;; progress so that we don't infloop. - (if (= (point) prev) + (if (equal (point) prev) (forward-line 1) (setq prev (point)) (set-marker end-marker (cdr found)) -- 2.39.2