diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-05-03 11:03:48 -0300 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-05-03 11:03:48 -0300 |
| commit | 5767d190ca743677c41c64119337bc2fa7797439 (patch) | |
| tree | a6869da95e70dbae43509871759ef776231536a2 /lisp/textmodes | |
| parent | bf242939d9cf16868e55e9c346eeb222cc3ffc6a (diff) | |
| download | emacs-5767d190ca743677c41c64119337bc2fa7797439.tar.gz | |
* lisp/textmodes/bibtex.el (bibtex-fill-field-bounds, bibtex-fill-entry):
Avoid open-line which runs post-self-insert-hook.
(bibtex-fill-entry): Remove unused `end' var.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/bibtex.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index 2d2c0380a4a..e49d7549776 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el @@ -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))) |