X-Git-Url: https://git.donarmstrong.com/?p=org-ref.git;a=blobdiff_plain;f=org-ref.org;h=b419e08178d53c97588d1f1f4e8c111db9d88549;hp=b232f529d778ff96d8b6cb97fe1120bda7a0b21a;hb=0eb92b3d59feed5c6b40bbd1f9c465f56aa005f3;hpb=28479ce09ce37e969b09898207f6187b0efc91e9

diff --git a/org-ref.org b/org-ref.org
index b232f52..b419e08 100644
--- a/org-ref.org
+++ b/org-ref.org
@@ -335,20 +335,31 @@ The basic idea here is to get the mouse position, and if we can determine there
 	    (goto-char p)
 	    (org-ref-link-message))))))
 
+
+(defvar org-ref-message-timer-mouse nil
+  "Store mouse timer.")
+
+
 (defvar org-ref-mouse-message-interval 0.5
   "How often to run the mouse message timer in seconds")
 
+
 (defun org-ref-mouse-messages-on ()
   "Turn on mouse messages."
   (interactive)
-  (setq org-ref-message-timer-mouse
-       (run-at-time "0.5 sec" org-ref-mouse-message-interval 'org-ref-mouse-message)))
+  (or org-ref-message-timer-mouse
+      (setq org-ref-message-timer-mouse
+	    (run-at-time "0.5 sec"
+			 org-ref-mouse-message-interval
+			 'org-ref-mouse-message))))
 
 
 (defun org-ref-mouse-messages-off ()
   "Turn off mouse messages"
   (interactive)
-  (cancel-timer org-ref-message-timer-mouse))
+  (cancel-timer org-ref-message-timer-mouse)
+  (setq org-ref-message-timer-mouse nil)
+  (message "Mouse messages are off"))
 #+END_SRC
 
 #+RESULTS: