* bug#11388: 24.0.95; Improper kill-line in zone.el
@ 2012-05-01 14:13 Aaron S. Hawley
2012-05-08 1:41 ` Glenn Morris
0 siblings, 1 reply; 2+ messages in thread
From: Aaron S. Hawley @ 2012-05-01 14:13 UTC (permalink / raw)
To: 11388
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
^ permalink raw reply [flat|nested] 2+ messages in thread
* bug#11388: 24.0.95; Improper kill-line in zone.el
2012-05-01 14:13 bug#11388: 24.0.95; Improper kill-line in zone.el Aaron S. Hawley
@ 2012-05-08 1:41 ` Glenn Morris
0 siblings, 0 replies; 2+ messages in thread
From: Glenn Morris @ 2012-05-08 1:41 UTC (permalink / raw)
To: 11388-done
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))
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2012-05-08 1:41 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2012-05-01 14:13 bug#11388: 24.0.95; Improper kill-line in zone.el Aaron S. Hawley
2012-05-08 1:41 ` Glenn Morris
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.