# HG changeset patch
# User Kai Gro���johann <kgrossjo@eu.uu.net>
# Date 1054152430 0
# Node ID 955ff3c53a8702f4d9443784a2b23b886d3ef5f3
# Parent  cbe53c66e890d9b767a65860c3fa9ee533fc5ceb
(kill-region): If nothing was killed, and the
previous command was not a kill, break kill sequence.

diff -r cbe53c66e890 -r 955ff3c53a87 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed May 28 18:41:41 2003 +0000
+++ b/lisp/ChangeLog	Wed May 28 20:07:10 2003 +0000
@@ -1,3 +1,8 @@
+2003-05-28  Kai Gro,A_(Bjohann  <kai.grossjohann@gmx.net>
+
+	* simple.el (kill-region): If nothing was killed, and the
+	previous command was not a kill, break kill sequence.
+
 2003-05-28  Richard M. Stallman  <rms@gnu.org>
 
 	* textmodes/refill.el (refill-fill-paragraph-at):
diff -r cbe53c66e890 -r 955ff3c53a87 lisp/simple.el
--- a/lisp/simple.el	Wed May 28 18:41:41 2003 +0000
+++ b/lisp/simple.el	Wed May 28 20:07:10 2003 +0000
@@ -1913,7 +1913,8 @@
 	  (if (eq last-command 'kill-region)
 	      (kill-append string (< end beg) yank-handler)
 	    (kill-new string nil yank-handler)))
-	(setq this-command 'kill-region))
+	(when (or string (eq last-command 'kill-region))
+	  (setq this-command 'kill-region)))
     ((buffer-read-only text-read-only)
      ;; The code above failed because the buffer, or some of the characters
      ;; in the region, are read-only.