From 5075bdb576c96ffba8eee9ae8bbf70c23315f8ed Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 7 May 2012 21:41:05 -0400 Subject: [PATCH] * lisp/play/zone.el (zone-pgm-stress): Don't pollute kill-ring. (Bug#11388) --- lisp/ChangeLog | 4 ++++ lisp/play/zone.el | 5 ++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 318d18a05d9..78d4bb87c9b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-05-08 Glenn Morris + + * play/zone.el (zone-pgm-stress): Don't pollute kill-ring. (Bug#11388) + 2012-05-08 Aaron S. Hawley * progmodes/make-mode.el (makefile-browse): diff --git a/lisp/play/zone.el b/lisp/play/zone.el index f47e273d612..b64099844e2 100644 --- 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 ;; Maintainer: Thien-Thi Nguyen @@ -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")) -- 2.39.2