[debbugs-tracker] bug#11388: closed (24.0.95; Improper kill-line in zone.el)

[GNU bug Tracking System]

Your message dated Mon, 07 May 2012 21:41:08 -0400
with message-id <address@hidden>
and subject line Re: bug#11388: 24.0.95; Improper kill-line in zone.el
has caused the debbugs.gnu.org bug report #11388,
regarding 24.0.95; Improper kill-line in zone.el
to be marked as done.

(If you believe you have received this mail in error, please contact
address@hidden)


-- 
11388: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=11388
GNU Bug Tracking System
Contact address@hidden with problems
> --- Begin Message ---
>
>
>
> Subject: 
>
> 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  <address@hidden>
>
>         * 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
>
>
>
> --- End Message ---
> --- Begin Message ---
>
>
>
> Subject: 
>
> Re: bug#11388: 24.0.95; Improper kill-line in zone.el
>
>
>
>
> Date: 
>
> Mon, 07 May 2012 21:41:08 -0400
>
>
>
>
> User-agent: 
>
> Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/)
>
>
>
>
> 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))
>
>
> --- End Message ---