(kill-region): If nothing was killed, and the

previous command was not a kill, break kill sequence.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 45c321247edc127dac7c37a1e3db3094bfc74d63..fb09251f8959c204073bd9f7979580363f80955a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-05-28  Kai Gro\e,A_\e(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 --git a/lisp/simple.el b/lisp/simple.el
index b57239656659496003ace4518a4178082c0107ae..3dcbb73f11408c13f18e4b2bf8f7b2366eec4595 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1913,7 +1913,8 @@ text property to be set on the killed text.  See `insert-for-yank'."
          (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.