Better seed support for (random).

[bpt/emacs.git] / lisp / type-break.el

diff --git a/lisp/type-break.el b/lisp/type-break.el
index f0c8112..8a95508 100644 (file)
--- a/lisp/type-break.el
+++ b/lisp/type-break.el
@@ -577,7 +577,6 @@ as per the function `type-break-schedule'."
         (unless type-break-terse-messages
           (message "Press any key to resume from typing break."))
 
-        (random t)
         (let* ((len (length type-break-demo-functions))
                (idx (random len))
                (fn (nth idx type-break-demo-functions)))