Skip to content

GitLab

Commit 635618a4 authored by Roland Winkler's avatar Roland Winkler
Browse files

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

parent 511744bd
Hide whitespace changes
Inline Side-by-side
Showing with 9 additions and 6 deletions
lisp/ChangeLog
View file @ 635618a4
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
......
lisp/textmodes/bibtex.el
View file @ 635618a4
......@@ -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]*")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment