# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 789428916 0
# Node ID 363bf89a308130ae7068becc23d132514f60cf76
# Parent  cc26982277e42b572de3016c05c8f3e501147607
(bibtex-clean-entry): Killing text while editing
the autogenerated label in the minibuffer caused the killed text
to appear in front of the bibtex entry.

diff -r cc26982277e4 -r 363bf89a3081 lisp/textmodes/bibtex.el
--- a/lisp/textmodes/bibtex.el	Fri Jan 06 20:48:57 1995 +0000
+++ b/lisp/textmodes/bibtex.el	Fri Jan 06 21:48:36 1995 +0000
@@ -7,7 +7,6 @@
 ;;	Mark Shapiro <shapiro@corto.inria.fr>
 ;;	Mike Newton <newton@gumby.cs.caltech.edu>
 ;;	Aaron Larson <alarson@src.honeywell.com>
-;; Version: 2.0  (based on RCS $Revision: 1.22 $, $Date: 1994/12/21 15:02:30 $)
 ;; Maintainer: Stefan Schoef <schoef@informatik.uni-oldenburg.de>
 ;; Keywords: BibTeX, LaTeX, TeX
 
@@ -1985,7 +1984,8 @@
                          (bibtex-end-of-entry)
                          (search-forward-regexp "^@" nil 'move)
                          (beginning-of-line)
-                         (point))))
+                         (point)))
+                  last-command)
               (kill-region start end)
               (let ((success (bibtex-find-entry-location autokey t)))
                 (yank)