Subject: bug#11388: closed (Re: bug#11388: 24.0.95; Improper kill-line in zone.el)

From: [email-masked] (GNU bug Tracking System)
Date: Tue, 08 May 2012 01:44:01 +0000

Your bug report

#11388: 24.0.95; Improper kill-line in zone.el

which was filed against the emacs package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
11388: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=11388
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: bug#11388: 24.0.95; Improper kill-line in zone.el
From: Glenn Morris <[email-masked]>
To: [email-masked]
Date: Mon, 07 May 2012 21:41:08 -0400
List-Id: <debbugs-submit.debbugs.gnu.org>

Version: 24.2

"Aaron S. Hawley" wrote:

> -         (let ((kill-whole-line t))
> -           (kill-line))
> +         (delete-region (point) (line-end-position))

These don't treat newlines the same. I installed:

 (delete-region (point) (line-beginning-position 2))

Subject: 24.0.95; Improper kill-line in zone.el
From: "Aaron S. Hawley" <[email-masked]>
To: bug-gnu-emacs <[email-masked]>
Date: Tue, 1 May 2012 10:13:52 -0400
List-Id: <debbugs-submit.debbugs.gnu.org>

I noticed that my last kill and the desktop clipboard were being
overwritten when Emacs was zoning.  This is because one of the zone
programs uses kill-line.

Reproduce with:

(let ((zone-programs '(zone-pgm-stress)))
    (zone))

Here's a patch:

2012-04-25  Aaron S. Hawley  <[email-masked]>

        * zone.el (zone-pgm-stress): Use delete-region instead of kill-line
        unless munging the kill ring is part of the "stress".

--- zone.el	2012-04-25 15:53:42.291906100 -0400
+++ zone.el	2012-04-25 16:11:00.042670800 -0400
@@ -595,8 +595,7 @@
        (when (< 50 (random 100))
          (goto-char (point-max))
          (forward-line -1)
-         (let ((kill-whole-line t))
-           (kill-line))
+         (delete-region (point) (line-end-position))
          (goto-char (point-min))
          (insert (nth (random (length lines)) lines)))
        (message (concat (make-string (random (- (frame-width) 5)) ? ) "grrr"))

Thanks for Emacs.
aaron