Display truly "random" tip on startup

This commit is contained in:
Bozhidar Batsov 2013-01-28 12:30:22 +02:00
parent 4dc0026c5e
commit cab4b80766

View file

@ -336,6 +336,8 @@ and so on."
(defun prelude-tip-of-the-day ()
(interactive)
;; pick a new random seed
(random t)
(message
(concat "Prelude tip: " (nth (random (length prelude-tips)) prelude-tips))))