Seed RNG on loading.

[bpt/emacs.git] / lisp / play / dissociate.el

diff --git a/lisp/play/dissociate.el b/lisp/play/dissociate.el
index 8f88bdb..1c0e89e 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