Seed RNG on loading.

diff --git a/lisp/play/5x5.el b/lisp/play/5x5.el
index 5dad84fadc53ed462a28a6ddfdc777b3f8185b66..5cf0c37fb62e05a062a013aedc3759bdd5b9e0c9 100644 (file)
--- a/lisp/play/5x5.el
+++ b/lisp/play/5x5.el
@@ -519,6 +519,8 @@ in progress because it is an animated attempt."
       (y-or-n-p prompt)
     t))
 
+(random t)
+
 (provide '5x5)
 
 ;;; arch-tag: ec4dabd5-572d-41ea-b48c-ec5ce0d68fa9

diff --git a/lisp/play/animate.el b/lisp/play/animate.el
index 1ac134bcd6bb34af1d5b74db42af674573e010d2..9d180a5f3380d71a76ed51759296ba5965063c1c 100644 (file)
--- a/lisp/play/animate.el
+++ b/lisp/play/animate.el
@@ -189,6 +189,8 @@ You can specify the one's name by NAME; the default value is \"Sarah\"."
   (animate-string "my sunshine" 18 34)
   (animate-string "to stay!" 19 34))
 
+(random t)
+
 (provide 'animate)
 
 ;;; arch-tag: 275289a3-6ac4-41da-b527-a1147045392f

diff --git a/lisp/play/dissociate.el b/lisp/play/dissociate.el
index 8f88bdb97888cc2ac2c58bf38c0945f809fbe319..1c0e89e7c7df4e23610dc4448e5afbbc60364521 100644 (file)
--- a/lisp/play/dissociate.el
+++ b/lisp/play/dissociate.el
@@ -99,6 +99,8 @@ Default is 2."
                 (funcall search-function overlap opoint t))))))
       (sit-for 0))))
 
+(random t)
+
 (provide 'dissociate)
 
 ;;; arch-tag: 90d197d1-409b-45c5-a0b5-fbfb2e06334f

diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index cd88b9cb315cf2cb9224bd032af5268d40284a51..4c3cc5b4ce84c93676b097e21171b59ca55c94d3 100644 (file)
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -1657,6 +1657,8 @@ Hack on previous word, setting global variable OWNER to correct result."
 
 (defun doctor-chat () (doctor-type (doc$ chatlst)))
 
+(random t)
+
 (provide 'doctor)
 
 ;; arch-tag: 579380f6-4902-4ea5-bccb-6339e30e1257

diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el
index c05a46b90f6fd3e51242acd715e0bef74c3a1ce8..8c04f254a0bcd768da9c6603199d2b37673af8e1 100644 (file)
--- a/lisp/play/gomoku.el
+++ b/lisp/play/gomoku.el
@@ -1209,6 +1209,8 @@ If the game is finished, this command requests for another game."
   (move-to-column (+ gomoku-x-offset
                     (* gomoku-square-width (1- gomoku-board-width)))))
 
+(random t)
+
 (provide 'gomoku)
 
 ;;; arch-tag: b1b8205e-77fc-4597-b373-3ea2c04311eb

diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el
index 4fe126fec0aeb42684340b409b14bd89dd5cdd1a..e8d0b21f47da91d59d8f44469df4972784547e1d 100644 (file)
--- a/lisp/play/landmark.el
+++ b/lisp/play/landmark.el
@@ -1705,6 +1705,8 @@ Use \\[describe-mode] for more info."
 ;;;allout-layout: (0 : -1 -1 0)
 ;;;End:
 
+(random t)
+
 (provide 'landmark)
 
 ;;; arch-tag: ae5031be-96e6-459e-a3df-1df53117d3f2

diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el
index f1901a129ddd518808c6d880194746f62d8a203d..11f6364e6098c030737b8dd7705607165e42be63 100644 (file)
--- a/lisp/play/tetris.el
+++ b/lisp/play/tetris.el
@@ -652,6 +652,8 @@ tetris-mode keybindings:
   (tetris-mode)
   (tetris-start-game))
 
+(random t)
+
 (provide 'tetris)
 
 ;;; arch-tag: fb780d53-3ff0-49f0-8e19-f7f13cf2d49e

diff --git a/lisp/play/zone.el b/lisp/play/zone.el
index 05f73b8030a000e96ff007718f01dacb8fc9ce8b..256a316c3cf4bfda21d654f46ed02d6cabcd0c70 100644 (file)
--- a/lisp/play/zone.el
+++ b/lisp/play/zone.el
@@ -692,6 +692,7 @@ If nil, `zone-pgm-random-life' chooses a value from 0-3 (inclusive).")
       (life (or zone-pgm-random-life-wait (random 4)))
       (kill-buffer nil))))
 
+(random t)
 
 ;;;;;;;;;;;;;;;
 (provide 'zone)