[Emacs-diffs] Changes to emacs/lisp/textmodes/bibtex.el [lexbind]

[Miles Bader]

Index: emacs/lisp/textmodes/bibtex.el
diff -c emacs/lisp/textmodes/bibtex.el:1.69.2.2 
emacs/lisp/textmodes/bibtex.el:1.69.2.3
*** emacs/lisp/textmodes/bibtex.el:1.69.2.2     Tue Oct 14 19:30:21 2003
--- emacs/lisp/textmodes/bibtex.el      Thu Nov 20 19:36:09 2003
***************
*** 1656,1671 ****
    "Make sure point is outside of a BibTeX entry."
    (let ((orig-point (point)))
      (bibtex-end-of-entry)
!     (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 "^[ address@hidden" nil 'move)
!           (backward-char 1))))
      (skip-chars-forward " \t\n")))
  
  (defun bibtex-beginning-of-first-entry ()
--- 1656,1670 ----
    "Make sure point is outside of a BibTeX entry."
    (let ((orig-point (point)))
      (bibtex-end-of-entry)
!     (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)
!       (unless (= ?\n (char-before (1- (point))))
!         (re-search-forward "^[ address@hidden" nil 'move)
!         (backward-char 1)))
      (skip-chars-forward " \t\n")))
  
  (defun bibtex-beginning-of-first-entry ()