jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Display truly "random" tip on startup

Browse source
This commit is contained in:
Bozhidar Batsov 2013-01-28 12:30:22 +02:00
parent 4dc0026c5e
commit cab4b80766
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
core/prelude-core.el
View file

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