procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/play/zone.el (zone-pgm-stress): Don't pollute kill-ring. (Bug#11388)

Browse source
This commit is contained in:
Glenn Morris 2012-05-07 21:41:05 -04:00
parent 06f679a794
commit 5075bdb576
2 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2012-05-08 Glenn Morris <rgm@gnu.org>
* play/zone.el (zone-pgm-stress): Don't pollute kill-ring. (Bug#11388)
2012-05-08 Aaron S. Hawley <aaron.s.hawley@gmail.com>
* progmodes/make-mode.el (makefile-browse):

5
lisp/play/zone.el
View file

@ -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 <zandy@cs.wisc.edu>
;; Maintainer: Thien-Thi Nguyen <ttn@gnu.org>
@ -595,8 +595,7 @@ If the element is a function or a list of a function and a number,
(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"))