* lisp/play/zone.el (zone-pgm-stress): Don't pollute kill-ring. (Bug#11388)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 318d18a05d9520dfa2b38e00edce027abf5429fd..78d4bb87c9b64e243747685e8be3b71036149ec1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-05-08  Glenn Morris  <rgm@gnu.org>
+
+       * play/zone.el (zone-pgm-stress): Don't pollute kill-ring.  (Bug#11388)
+
 2012-05-08  Aaron S. Hawley  <aaron.s.hawley@gmail.com>
 
        * progmodes/make-mode.el (makefile-browse):

diff --git a/lisp/play/zone.el b/lisp/play/zone.el
index f47e273d6121f88dd6a594743831e7ce32c092e5..b64099844e21b282f21be72ffd62af439786e4ae 100644 (file)
--- a/lisp/play/zone.el
+++ b/lisp/play/zone.el
@@ -1,6 +1,6 @@
 ;;; zone.el --- idle display hacks
 
-;; Copyright (C) 2000-2012  Free Software Foundation, Inc.
+;; Copyright (C) 2000-2012 Free Software Foundation, Inc.
 
 ;; Author: Victor Zandy <zandy@cs.wisc.edu>
 ;; Maintainer: Thien-Thi Nguyen <ttn@gnu.org>
@@ -595,8 +595,7 @@ If the element is a function or a list of a function and a number,
        (when (< 50 (random 100))
          (goto-char (point-max))
          (forward-line -1)
-         (let ((kill-whole-line t))
-           (kill-line))
+         (delete-region (point) (line-beginning-position 2))
          (goto-char (point-min))
          (insert (nth (random (length lines)) lines)))
        (message (concat (make-string (random (- (frame-width) 5)) ? ) "grrr"))