mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-24 10:38:38 +00:00
Seed RNG on loading.
This commit is contained in:
parent
8b9145b6ef
commit
d2fe66859e
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -652,6 +652,8 @@ tetris-mode keybindings:
|
||||
(tetris-mode)
|
||||
(tetris-start-game))
|
||||
|
||||
(random t)
|
||||
|
||||
(provide 'tetris)
|
||||
|
||||
;;; arch-tag: fb780d53-3ff0-49f0-8e19-f7f13cf2d49e
|
||||
|
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user