# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1066692661 0
# Node ID a6806242012a72814f350cc74cb50cab5af06b75
# Parent  51328ad3b6bebe9701f4490287bea195efe42dad
(bibtex-move-outside-of-entry):
Move backward only if point was not inside an entry.

diff -r 51328ad3b6be -r a6806242012a lisp/textmodes/bibtex.el
--- a/lisp/textmodes/bibtex.el	Mon Oct 20 23:30:05 2003 +0000
+++ b/lisp/textmodes/bibtex.el	Mon Oct 20 23:31:01 2003 +0000
@@ -1656,16 +1656,15 @@
   "Make sure point is outside of a BibTeX entry."
   (let ((orig-point (point)))
     (bibtex-end-of-entry)
-    (when (<= (point) orig-point)
+    (when (< (point) orig-point)
       ;; We moved backward, so we weren't inside an entry to begin with.
       ;; Leave point at the beginning of a line, and preferably
       ;; at the beginning of a paragraph.
       (goto-char orig-point)
       (beginning-of-line 1)
-      (let ((cb (char-before (1- (point)))))
-        (unless (and cb (= ?\n cb))
-          (re-search-forward "^[ \t]*[@\n]" nil 'move)
-          (backward-char 1))))
+      (unless (= ?\n (char-before (1- (point))))
+        (re-search-forward "^[ \t]*[@\n]" nil 'move)
+        (backward-char 1)))
     (skip-chars-forward " \t\n")))
 
 (defun bibtex-beginning-of-first-entry ()