diff options
| -rw-r--r-- | lisp/textmodes/bibtex.el | 4 |
1 files 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)) |