From unknown Tue Aug 19 23:13:01 2025 X-Loop: help-debbugs@gnu.org Subject: bug#11388: 24.0.95; Improper kill-line in zone.el Resent-From: "Aaron S. Hawley" Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 01 May 2012 14:16:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 11388 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: To: 11388@debbugs.gnu.org X-Debbugs-Original-To: bug-gnu-emacs Received: via spool by submit@debbugs.gnu.org id=B.133588173628745 (code B ref -1); Tue, 01 May 2012 14:16:01 +0000 Received: (at submit) by debbugs.gnu.org; 1 May 2012 14:15:36 +0000 Received: from localhost ([127.0.0.1]:60907 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1SPDrc-0007TY-5G for submit@debbugs.gnu.org; Tue, 01 May 2012 10:15:36 -0400 Received: from eggs.gnu.org ([208.118.235.92]:39137) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1SPDrZ-0007Oj-UI for submit@debbugs.gnu.org; Tue, 01 May 2012 10:15:34 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SPDq4-0006Uk-6T for submit@debbugs.gnu.org; Tue, 01 May 2012 10:14:01 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-6.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM, RCVD_IN_DNSWL_HI,T_DKIM_INVALID autolearn=unavailable version=3.3.2 Received: from lists.gnu.org ([208.118.235.17]:55903) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SPDq3-0006U6-Vy for submit@debbugs.gnu.org; Tue, 01 May 2012 10:14:00 -0400 Received: from eggs.gnu.org ([208.118.235.92]:54440) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SPDq2-0005cv-90 for bug-gnu-emacs@gnu.org; Tue, 01 May 2012 10:13:59 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SPDq0-0006OQ-Gu for bug-gnu-emacs@gnu.org; Tue, 01 May 2012 10:13:57 -0400 Received: from mail-bk0-f41.google.com ([209.85.214.41]:56900) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SPDq0-0006Jj-6h for bug-gnu-emacs@gnu.org; Tue, 01 May 2012 10:13:56 -0400 Received: by bkcjm19 with SMTP id jm19so313423bkc.0 for ; Tue, 01 May 2012 07:13:53 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:date:message-id:subject:from:to:content-type; bh=/dhZlMtCfiyjBi+xKBil1lDYIN0gg3OHcYuq5fgHUKQ=; b=S68M+DIAtGAO7nruiO0hUFGKDb7IJBynHjd43tKajD/1tBCozizuX/fWYap08JXG1T NtKpKLaLmhIih7OQuO2dyUbnDNudXU/e5H3jrxOlSXI2L5z6QgApwJgYcf70v9g40Dnr eAyXggnu/iN2CHTVWWz+2m3Vy6THOC7Vm7bv+bq3xZg/VubRO4TWRHhXUOyKc/8wq1w2 549dkx1YiIopqMEJ4ZpGL3dwnwMmG79K21wQuNFJqB84bnojvatUJ+Jez7eKXCug1lkI bZikLpEB0s43JWoMTe1jG91312hrf4fW5Wp8ilEl9VJWFF0PhFMHlwFrgTeHDE6JrApw I0sw== MIME-Version: 1.0 Received: by 10.204.152.75 with SMTP id f11mr8509844bkw.136.1335881633096; Tue, 01 May 2012 07:13:53 -0700 (PDT) Received: by 10.204.143.150 with HTTP; Tue, 1 May 2012 07:13:52 -0700 (PDT) Date: Tue, 1 May 2012 10:13:52 -0400 Message-ID: From: "Aaron S. Hawley" Content-Type: text/plain; charset=ISO-8859-1 X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Received-From: 208.118.235.17 X-Spam-Score: -6.1 (------) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -6.1 (------) 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 * 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 From unknown Tue Aug 19 23:13:01 2025 MIME-Version: 1.0 X-Mailer: MIME-tools 5.428 (Entity 5.428) X-Loop: help-debbugs@gnu.org From: help-debbugs@gnu.org (GNU bug Tracking System) To: "Aaron S. Hawley" Subject: bug#11388: closed (Re: bug#11388: 24.0.95; Improper kill-line in zone.el) Message-ID: References: X-Gnu-PR-Message: they-closed 11388 X-Gnu-PR-Package: emacs X-Gnu-PR-Keywords: patch Reply-To: 11388@debbugs.gnu.org Date: Tue, 08 May 2012 01:44:01 +0000 Content-Type: multipart/mixed; boundary="----------=_1336441441-14818-1" This is a multi-part message in MIME format... ------------=_1336441441-14818-1 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset="utf-8" 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 11388@debbugs.gnu.org. --=20 11388: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D11388 GNU Bug Tracking System Contact help-debbugs@gnu.org with problems ------------=_1336441441-14818-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at 11388-done) by debbugs.gnu.org; 8 May 2012 01:43:15 +0000 Received: from localhost ([127.0.0.1]:40218 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1SRZSN-0003px-NK for submit@debbugs.gnu.org; Mon, 07 May 2012 21:43:15 -0400 Received: from fencepost.gnu.org ([208.118.235.10]:36720 ident=Debian-exim) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1SRZSL-0003pq-Lx for 11388-done@debbugs.gnu.org; Mon, 07 May 2012 21:43:14 -0400 Received: from rgm by fencepost.gnu.org with local (Exim 4.71) (envelope-from ) id 1SRZQK-0002pr-Gd; Mon, 07 May 2012 21:41:08 -0400 From: Glenn Morris To: 11388-done@debbugs.gnu.org Subject: Re: bug#11388: 24.0.95; Improper kill-line in zone.el References: X-Spook: industrial intelligence Crowell Croatian Capricorn X-Ran: "(&C[}Z0w60luwVzAG (Aaron S. Hawley's message of "Tue, 1 May 2012 10:13:52 -0400") Message-ID: User-Agent: Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Spam-Score: -6.9 (------) X-Debbugs-Envelope-To: 11388-done X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -6.9 (------) 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)) ------------=_1336441441-14818-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at submit) by debbugs.gnu.org; 1 May 2012 14:15:36 +0000 Received: from localhost ([127.0.0.1]:60907 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1SPDrc-0007TY-5G for submit@debbugs.gnu.org; Tue, 01 May 2012 10:15:36 -0400 Received: from eggs.gnu.org ([208.118.235.92]:39137) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1SPDrZ-0007Oj-UI for submit@debbugs.gnu.org; Tue, 01 May 2012 10:15:34 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SPDq4-0006Uk-6T for submit@debbugs.gnu.org; Tue, 01 May 2012 10:14:01 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=-6.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM, RCVD_IN_DNSWL_HI,T_DKIM_INVALID autolearn=unavailable version=3.3.2 Received: from lists.gnu.org ([208.118.235.17]:55903) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SPDq3-0006U6-Vy for submit@debbugs.gnu.org; Tue, 01 May 2012 10:14:00 -0400 Received: from eggs.gnu.org ([208.118.235.92]:54440) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SPDq2-0005cv-90 for bug-gnu-emacs@gnu.org; Tue, 01 May 2012 10:13:59 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SPDq0-0006OQ-Gu for bug-gnu-emacs@gnu.org; Tue, 01 May 2012 10:13:57 -0400 Received: from mail-bk0-f41.google.com ([209.85.214.41]:56900) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SPDq0-0006Jj-6h for bug-gnu-emacs@gnu.org; Tue, 01 May 2012 10:13:56 -0400 Received: by bkcjm19 with SMTP id jm19so313423bkc.0 for ; Tue, 01 May 2012 07:13:53 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:date:message-id:subject:from:to:content-type; bh=/dhZlMtCfiyjBi+xKBil1lDYIN0gg3OHcYuq5fgHUKQ=; b=S68M+DIAtGAO7nruiO0hUFGKDb7IJBynHjd43tKajD/1tBCozizuX/fWYap08JXG1T NtKpKLaLmhIih7OQuO2dyUbnDNudXU/e5H3jrxOlSXI2L5z6QgApwJgYcf70v9g40Dnr eAyXggnu/iN2CHTVWWz+2m3Vy6THOC7Vm7bv+bq3xZg/VubRO4TWRHhXUOyKc/8wq1w2 549dkx1YiIopqMEJ4ZpGL3dwnwMmG79K21wQuNFJqB84bnojvatUJ+Jez7eKXCug1lkI bZikLpEB0s43JWoMTe1jG91312hrf4fW5Wp8ilEl9VJWFF0PhFMHlwFrgTeHDE6JrApw I0sw== MIME-Version: 1.0 Received: by 10.204.152.75 with SMTP id f11mr8509844bkw.136.1335881633096; Tue, 01 May 2012 07:13:53 -0700 (PDT) Received: by 10.204.143.150 with HTTP; Tue, 1 May 2012 07:13:52 -0700 (PDT) Date: Tue, 1 May 2012 10:13:52 -0400 Message-ID: Subject: 24.0.95; Improper kill-line in zone.el From: "Aaron S. Hawley" To: bug-gnu-emacs Content-Type: text/plain; charset=ISO-8859-1 X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Received-From: 208.118.235.17 X-Spam-Score: -6.1 (------) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: debbugs-submit-bounces@debbugs.gnu.org Errors-To: debbugs-submit-bounces@debbugs.gnu.org X-Spam-Score: -6.1 (------) 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 * 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 ------------=_1336441441-14818-1--