[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r108156: * lisp/play/zone.el (zone-pg
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r108156: * lisp/play/zone.el (zone-pgm-stress): Don't pollute kill-ring. (Bug#11388) |
Date: |
Mon, 07 May 2012 21:41:05 -0400 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 108156
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Mon 2012-05-07 21:41:05 -0400
message:
* lisp/play/zone.el (zone-pgm-stress): Don't pollute kill-ring. (Bug#11388)
modified:
lisp/ChangeLog
lisp/play/zone.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-05-08 01:25:52 +0000
+++ b/lisp/ChangeLog 2012-05-08 01:41:05 +0000
@@ -1,3 +1,7 @@
+2012-05-08 Glenn Morris <address@hidden>
+
+ * play/zone.el (zone-pgm-stress): Don't pollute kill-ring. (Bug#11388)
+
2012-05-08 Aaron S. Hawley <address@hidden>
* progmodes/make-mode.el (makefile-browse):
=== modified file 'lisp/play/zone.el'
--- a/lisp/play/zone.el 2012-04-09 13:05:48 +0000
+++ b/lisp/play/zone.el 2012-05-08 01:41:05 +0000
@@ -1,6 +1,6 @@
;;; zone.el --- idle display hacks
-;; Copyright (C) 2000-2012 Free Software Foundation, Inc.
+;; Copyright (C) 2000-2012 Free Software Foundation, Inc.
;; Author: Victor Zandy <address@hidden>
;; Maintainer: Thien-Thi Nguyen <address@hidden>
@@ -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-beginning-position 2))
(goto-char (point-min))
(insert (nth (random (length lines)) lines)))
(message (concat (make-string (random (- (frame-width) 5)) ? ) "grrr"))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r108156: * lisp/play/zone.el (zone-pgm-stress): Don't pollute kill-ring. (Bug#11388),
Glenn Morris <=