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

[Richard M. Stallman]

Index: emacs/lisp/textmodes/bibtex.el
diff -c emacs/lisp/textmodes/bibtex.el:1.78 emacs/lisp/textmodes/bibtex.el:1.79
*** emacs/lisp/textmodes/bibtex.el:1.78 Mon Sep  1 11:45:39 2003
--- emacs/lisp/textmodes/bibtex.el      Mon Oct 20 19:31:01 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 ()