(bibtex-format-entry): Simplify previous change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 87f89797f859892b6554702030a6ba28d028644a..e28ac1d0a8a0d95dcfb7b6c1985b957859c02208 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-01-17  Roland Winkler  <Roland.Winkler@physik.uni-erlangen.de>
+
+       * textmodes/bibtex.el (bibtex-format-entry): Simplify previous
+       change.
+
 2009-01-17  Eli Zaretskii  <eliz@gnu.org>
 
        * dos-w32.el (find-buffer-file-type-coding-system): If `(car

diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 0114f234dd6b74cd0683872cdfa33a0955ac09a1..139f9f02d047a9033ab3fc3dbb394d58a64d4bc7 100644 (file)
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -1893,7 +1893,6 @@ Formats current entry according to variable `bibtex-entry-format'."
                               strings)
                   bibtex-entry-format))
         (left-delim-re (regexp-quote (bibtex-field-left-delimiter)))
-        (right-delim-re (regexp-quote (bibtex-field-right-delimiter)))
         bounds crossref-key req-field-list default-field-list field-list
         alt-fields error-field-name)
     (unwind-protect
@@ -2006,12 +2005,11 @@ Formats current entry according to variable `bibtex-entry-format'."
                         (if (looking-at bibtex-field-const)
                             (goto-char (match-end 0))
                           (let ((boundaries (bibtex-parse-field-string)))
-                            (unless (looking-at left-delim-re)
+                            (if (looking-at left-delim-re)
+                                (goto-char (cdr boundaries))
                               (delete-char 1)
-                              (insert (bibtex-field-left-delimiter)))
-                            (goto-char (1- (cdr boundaries)))
-                            (if (looking-at right-delim-re)
-                                (forward-char)
+                              (insert (bibtex-field-left-delimiter))
+                              (goto-char (1- (cdr boundaries)))
                               (delete-char 1)
                               (insert (bibtex-field-right-delimiter)))))
                         (if (looking-at "[ \t\n]*#[ \t\n]*")