From fa59ceb3f1108d10f9b00c25fc4e7f5b72df5574 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 6 Jan 1995 21:48:36 +0000
Subject: [PATCH] (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.

---
 lisp/textmodes/bibtex.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 7f5571f0fc2..75881ef2681 100644
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -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 @@ given, calculate a new entry label."
                          (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)
-- 
2.39.5