[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/textmodes bibtex.el
From: |
Roland Winkler |
Subject: |
[Emacs-diffs] emacs/lisp/textmodes bibtex.el |
Date: |
Sat, 17 Jan 2009 14:58:54 +0000 |
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]*")