[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#11388: 24.0.95; Improper kill-line in zone.el
From: |
Aaron S. Hawley |
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@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
- bug#11388: 24.0.95; Improper kill-line in zone.el,
Aaron S. Hawley <=