Mercurial > emacs
changeset 51304:955ff3c53a87
(kill-region): If nothing was killed, and the
previous command was not a kill, break kill sequence.
| author | Kai Großjohann <kgrossjo@eu.uu.net> |
|---|---|
| date | Wed, 28 May 2003 20:07:10 +0000 |
| parents | cbe53c66e890 |
| children | 5b999429df44 |
| files | lisp/ChangeLog lisp/simple.el |
| diffstat | 2 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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.