[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/bibtex.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/bibtex.el [lexbind] |
Date: |
Thu, 20 Nov 2003 19:36:42 -0500 |
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 ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/textmodes/bibtex.el [lexbind],
Miles Bader <=