Remove tip in pre-command-hook
* lisp/tty-tip.el (tty-tip-mode): install pre-command-hook that deleted the tip frame.
This commit is contained in:
parent
e0bfd3ce23
commit
907c735402
1 changed files with 6 additions and 3 deletions
|
@ -190,9 +190,12 @@
|
|||
"Global minor mode for displaying help in tty child frames."
|
||||
:global t :group 'help
|
||||
(unless (display-graphic-p)
|
||||
(if tty-tip-mode
|
||||
(setq show-help-function #'tty-tip--show-help)
|
||||
(setq show-help-function nil))))
|
||||
(cond (tty-tip-mode
|
||||
(setq show-help-function #'tty-tip--show-help)
|
||||
(add-hook 'pre-command-hook #'tty-tip--delete-frame))
|
||||
(t
|
||||
(setq show-help-function nil)
|
||||
(remove-hook 'pre-command-hook #'tty-tip--delete-frame)))))
|
||||
|
||||
(provide 'tty-tip)
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue