martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* lisp/net/dictionary.el (dictionary-tooltip-mode): Use setq-local

Browse Source
This commit is contained in:
Torsten Hilbrich
2020-12-14 09:40:33 +01:00
parent 4deb8618e4
commit d30618cbc1
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/net/dictionary.el
View File

@@ -1297,11 +1297,9 @@ overwrite that mode for the current buffer.
(let ((on (if arg
(> (prefix-numeric-value arg) 0)
(not dictionary-tooltip-mode))))
(make-local-variable 'dictionary-tooltip-mode)
(setq dictionary-tooltip-mode on)
(make-local-variable 'track-mouse)
(setq-local dictionary-tooltip-mode on)
(setq-local track-mouse on)
(make-local-variable 'dictionary-tooltip-mouse-event)
(setq track-mouse on)
(dictionary-switch-tooltip-mode 1)
(if on
(local-set-key [mouse-movement] 'dictionary-tooltip-track-mouse)