mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/textmodes/bibtex.el (bibtex-fill-field-bounds, bibtex-fill-entry):

Browse source 
Avoid open-line which runs post-self-insert-hook.
(bibtex-fill-entry): Remove unused `end' var.
This commit is contained in:
Stefan Monnier 2011-05-03 11:03:48 -03:00
parent bf242939d9
commit 5767d190ca
2 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/textmodes/bibtex.el
View file

@ -4313,8 +4313,7 @@ If optional arg MOVE is non-nil move point to end of field."
(goto-char (bibtex-start-of-field bounds))
(forward-char) ; leading comma
(bibtex-delete-whitespace)
(open-line 1)
(forward-char)
(insert "\n")
(indent-to-column (+ bibtex-entry-offset
bibtex-field-indentation))
(re-search-forward "[ \t\n]*=" end-field)
@ -4352,7 +4351,6 @@ column `bibtex-text-indentation' and continuation lines start here, too.
If `bibtex-align-at-equal-sign' is non-nil, align equal signs, too."
(interactive "*")
(let ((pnt (copy-marker (point)))
(end (copy-marker (bibtex-end-of-entry)))
(beg (bibtex-beginning-of-entry)) ; move point
bounds)
(bibtex-delete-whitespace)
@ -4364,8 +4362,7 @@ If `bibtex-align-at-equal-sign' is non-nil, align equal signs, too."
(forward-char))
(skip-chars-backward " \t\n")
(bibtex-delete-whitespace)
(open-line 1)
(forward-char)
(insert "\n")
(indent-to-column bibtex-entry-offset)
(goto-char pnt)))