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 () (defun prelude-tip-of-the-day ()
"Display a random entry from `prelude-tips'." "Display a random entry from `prelude-tips'."
(interactive) (interactive)
;; pick a new random seed (unless (window-minibuffer-p)
(random t) ;; pick a new random seed
(message (random t)
(concat "Prelude tip: " (nth (random (length prelude-tips)) prelude-tips)))) (message
(concat "Prelude tip: " (nth (random (length prelude-tips)) prelude-tips)))))
(defun prelude-eval-after-init (form) (defun prelude-eval-after-init (form)
"Add `(lambda () FORM)' to `after-init-hook'. "Add `(lambda () FORM)' to `after-init-hook'.