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
This commit is contained in:
Torsten Hilbrich 2020-11-19 08:25:42 +01:00
parent 2f1e4fbc42
commit 91ff1c8f7c

View file

@ -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")