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.

diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 62a4af1377493041f0221cef31de3517b4a50c3f..544e0da8276687f443dde00ac0c2cbf12e486be2 100644 (file)
--- 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))