From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 6 Jan 1995 21:48:36 +0000 (+0000)
Subject: (bibtex-clean-entry): Killing text while editing
X-Git-Tag: emacs-19.34~5504
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fa59ceb3f1108d10f9b00c25fc4e7f5b72df5574;p=emacs.git

(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 --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)