GNU bug report logs - #11388
24.0.95; Improper kill-line in zone.el

Previous Next

Full log

View this message in rfc822 format

From: "Aaron S. Hawley" <aaron.s.hawley <at> gmail.com>
To: 11388 <at> debbugs.gnu.org
Subject: bug#11388: 24.0.95; Improper kill-line in zone.el
Date: Tue, 1 May 2012 10:13:52 -0400

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  <aaron.s.hawley <at> gmail.com>

        * 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

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.