Mercurial > emacs

changeset 76953:417f62c55294

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Seed RNG on loading.
author Glenn Morris <rgm@gnu.org>
date Thu, 05 Apr 2007 06:29:42 +0000
parents 1842898590ae
children b6d64a551715
files lisp/play/5x5.el lisp/play/animate.el lisp/play/dissociate.el lisp/play/doctor.el lisp/play/gomoku.el lisp/play/landmark.el lisp/play/tetris.el lisp/play/zone.el
diffstat 8 files changed, 15 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/play/5x5.el	Thu Apr 05 06:29:19 2007 +0000
+++ b/lisp/play/5x5.el	Thu Apr 05 06:29:42 2007 +0000
@@ -519,6 +519,8 @@
       (y-or-n-p prompt)
     t))
 
+(random t)
+
 (provide '5x5)
 
 ;;; arch-tag: ec4dabd5-572d-41ea-b48c-ec5ce0d68fa9
--- a/lisp/play/animate.el	Thu Apr 05 06:29:19 2007 +0000
+++ b/lisp/play/animate.el	Thu Apr 05 06:29:42 2007 +0000
@@ -189,6 +189,8 @@
   (animate-string "my sunshine" 18 34)
   (animate-string "to stay!" 19 34))
 
+(random t)
+
 (provide 'animate)
 
 ;;; arch-tag: 275289a3-6ac4-41da-b527-a1147045392f
--- a/lisp/play/dissociate.el	Thu Apr 05 06:29:19 2007 +0000
+++ b/lisp/play/dissociate.el	Thu Apr 05 06:29:42 2007 +0000
@@ -99,6 +99,8 @@
 		 (funcall search-function overlap opoint t))))))
       (sit-for 0))))
 
+(random t)
+
 (provide 'dissociate)
 
 ;;; arch-tag: 90d197d1-409b-45c5-a0b5-fbfb2e06334f
--- a/lisp/play/doctor.el	Thu Apr 05 06:29:19 2007 +0000
+++ b/lisp/play/doctor.el	Thu Apr 05 06:29:42 2007 +0000
@@ -1657,6 +1657,8 @@
 
 (defun doctor-chat () (doctor-type (doc$ chatlst)))
 
+(random t)
+
 (provide 'doctor)
 
 ;; arch-tag: 579380f6-4902-4ea5-bccb-6339e30e1257
--- a/lisp/play/gomoku.el	Thu Apr 05 06:29:19 2007 +0000
+++ b/lisp/play/gomoku.el	Thu Apr 05 06:29:42 2007 +0000
@@ -1209,6 +1209,8 @@
   (move-to-column (+ gomoku-x-offset
 		     (* gomoku-square-width (1- gomoku-board-width)))))
 
+(random t)
+
 (provide 'gomoku)
 
 ;;; arch-tag: b1b8205e-77fc-4597-b373-3ea2c04311eb
--- a/lisp/play/landmark.el	Thu Apr 05 06:29:19 2007 +0000
+++ b/lisp/play/landmark.el	Thu Apr 05 06:29:42 2007 +0000
@@ -1705,6 +1705,8 @@
 ;;;allout-layout: (0 : -1 -1 0)
 ;;;End:
 
+(random t)
+
 (provide 'landmark)
 
 ;;; arch-tag: ae5031be-96e6-459e-a3df-1df53117d3f2
--- a/lisp/play/tetris.el	Thu Apr 05 06:29:19 2007 +0000
+++ b/lisp/play/tetris.el	Thu Apr 05 06:29:42 2007 +0000
@@ -652,6 +652,8 @@
   (tetris-mode)
   (tetris-start-game))
 
+(random t)
+
 (provide 'tetris)
 
 ;;; arch-tag: fb780d53-3ff0-49f0-8e19-f7f13cf2d49e
--- a/lisp/play/zone.el	Thu Apr 05 06:29:19 2007 +0000
+++ b/lisp/play/zone.el	Thu Apr 05 06:29:42 2007 +0000
@@ -692,6 +692,7 @@
       (life (or zone-pgm-random-life-wait (random 4)))
       (kill-buffer nil))))
 
+(random t)
 
 ;;;;;;;;;;;;;;;
 (provide 'zone)