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

[Roland Winkler]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Roland Winkler <winkler>        09/01/17 14:58:54

Modified files:
        lisp/textmodes : bibtex.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/bibtex.el?cvsroot=emacs&r1=1.143&r2=1.144

Patches:
Index: bibtex.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/bibtex.el,v
retrieving revision 1.143
retrieving revision 1.144
diff -u -b -r1.143 -r1.144
--- bibtex.el   16 Jan 2009 15:10:16 -0000      1.143
+++ bibtex.el   17 Jan 2009 14:58:53 -0000      1.144
@@ -1893,7 +1893,6 @@
                               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 @@
                         (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)))
+                              (insert (bibtex-field-left-delimiter))
                             (goto-char (1- (cdr boundaries)))
-                            (if (looking-at right-delim-re)
-                                (forward-char)
                               (delete-char 1)
                               (insert (bibtex-field-right-delimiter)))))
                         (if (looking-at "[ \t\n]*#[ \t\n]*")