Let tty tips disappear automatically

* lisp/tty-tip.el (tty-tip--create-frame): Delete tip frame after
x-show-tooltip-timeout seconds.

(cherry picked from commit e0bfd3ce23eafb13ab0400f3046074b83784d9f8)

diff --git a/lisp/tty-tip.el b/lisp/tty-tip.el
index 92a115b2008578e3053c4856cf1393ccf65a0ac2..7f600fd3772ee28690948f0da975d1aa612ce7a6 100644 (file)
--- a/lisp/tty-tip.el
+++ b/lisp/tty-tip.el
@@ -3,6 +3,8 @@
 
 ;; Copyright (C) 2024 Free Software Foundation, Inc.
 
+;; This file is part of GNU Emacs.
+
 ;; GNU Emacs is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
 ;; the Free Software Foundation, either version 3 of the License, or
@@ -141,7 +143,8 @@
              (x (car pos))
              (y (cdr pos)))
        (set-frame-position tty-tip--frame x y))
-      (make-frame-visible tty-tip--frame))))
+      (make-frame-visible tty-tip--frame)
+      (run-at-time x-show-tooltip-timeout nil #'tty-tip--delete-frame))))
 
 (defvar tty-tip--help-message nil)
 (defvar tty-tip--hide-time nil)