[Emacs-diffs] /srv/bzr/emacs/trunk r104090: * lisp/textmodes/bibtex.el (bibtex-fill-field-bounds, bibtex-fill-entry):

[Stefan Monnier]

------------------------------------------------------------
revno: 104090
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2011-05-03 11:03:48 -0300
message:
  * 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.
modified:
  lisp/ChangeLog
  lisp/textmodes/bibtex.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-03 11:08:15 +0000
+++ b/lisp/ChangeLog    2011-05-03 14:03:48 +0000
@@ -1,12 +1,18 @@
+2011-05-03  Stefan Monnier  <address@hidden>
+
+       * 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.
+
 2011-05-03  Dirk Ullrich  <address@hidden>  (tiny change)
 
-        * textmodes/ispell.el (ispell-add-per-file-word-list):
-        Protect against `nil' value of `comment-start' (Bug#8579).
+       * textmodes/ispell.el (ispell-add-per-file-word-list):
+       Protect against `nil' value of `comment-start' (Bug#8579).
 
 2011-05-03  Leo Liu  <address@hidden>
 
        * isearch.el (isearch-yank-pop): New command.
-       (isearch-mode-map): bind it to `M-y'.
+       (isearch-mode-map): Bind it to `M-y'.
        (isearch-forward): Mention it.
 
 2011-05-03  Stefan Monnier  <address@hidden>

=== modified file 'lisp/textmodes/bibtex.el'
--- a/lisp/textmodes/bibtex.el  2011-01-26 08:36:39 +0000
+++ b/lisp/textmodes/bibtex.el  2011-05-03 14:03:48 +0000
@@ -4313,8 +4313,7 @@
       (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 @@
 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 @@
         (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)))