Do not show the tip if cursor is in the minibuffer

This commit is contained in:
toctan 2013-05-19 19:16:43 +08:00
parent e1c4c129c0
commit 4b6fc89a24

View file

@ -352,10 +352,11 @@ Doesn't mess with special buffers."
(defun prelude-tip-of-the-day ()
"Display a random entry from `prelude-tips'."
(interactive)
(unless (window-minibuffer-p)
;; pick a new random seed
(random t)
(message
(concat "Prelude tip: " (nth (random (length prelude-tips)) prelude-tips))))
(concat "Prelude tip: " (nth (random (length prelude-tips)) prelude-tips)))))
(defun prelude-eval-after-init (form)
"Add `(lambda () FORM)' to `after-init-hook'.