Re: [angeli@iwi.uni-sb.de: [bibtex.el] Not possible to add entry in new file]

[Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>]

> To: emacs-pretest-bug@gnu.org
> From: Ralf Angeli <angeli@iwi.uni-sb.de>
> Date: 25 Aug 2003 16:52:35 +0200
> Subject: [bibtex.el] Not possible to add entry in new file
> Sender: emacs-pretest-bug-bounces+rms=gnu.org@gnu.org
> 
> After opening a new BibTeX file it is not possible to an entry via
> keyboard shortcuts like 'C-x C-e b' or the respective menu item.
> After trying this the following line appears in the *Messages* buffer:
> 
> bibtex-prepare-new-entry: Beginning of buffer
> 
> The problem does not occur if there is already an entry present in the
> file.


Hi

About a month ago I sent the patch below to emacs-devel@gnu.org. But
it seems to me that up to now it has not appeared in the CVS tree.
Could someone please install it?
Thank you very much,

Roland



2003-09-04  Roland Winkler  <Roland.Winkler@physik.uni-erlangen.de>

	* textmodes/bibtex.el (bibtex-move-outside-of-entry): Bugfix. Move
	backward only if point was not inside an entry.


--- bibtex.el   2003/06/30 17:59:05     1.25
+++ bibtex.el   2003/08/28 10:18:40
@@ -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 ()