Move placement of dictionary-tooltip-mouse-event

* lisp/net/dictionary.el (dictionary-tooltip-mouse-event): Place
variable before dictionary-display-tooltip to avoid warning about use of
free variable when compiling dictionary-display-tooltip

diff --git a/lisp/net/dictionary.el b/lisp/net/dictionary.el
index a1d4ac9214e1a837ec30463d0c0e2e5e9c9390b2..1e1d4d9d444f066f1be240f5efdbe1eb34df9961 100644 (file)
--- a/lisp/net/dictionary.el
+++ b/lisp/net/dictionary.el
@@ -1249,6 +1249,9 @@ It presents the word at point as default input and allows editing it."
           (goto-char point)
         (current-word))))))
 
+(defvar dictionary-tooltip-mouse-event nil
+  "Event that triggered the tooltip mode")
+
 (defun dictionary-display-tooltip (event)
   "Search the current word in the `dictionary-tooltip-dictionary'."
   (interactive "e")
@@ -1263,9 +1266,6 @@ It presents the word at point as default input and allows editing it."
         t)
     nil))
 
-(defvar dictionary-tooltip-mouse-event nil
-  "Event that triggered the tooltip mode")
-
 (defun dictionary-tooltip-track-mouse (event)
   "Called whenever a dictionary tooltip display is about to be triggered."
   (interactive "e")