summaryrefslogtreecommitdiff
path: root/lisp/tooltip.el
diff options
context:
space:
mode:
authorStefan Kangas <stefankangas@gmail.com>2023-08-08 04:53:08 +0200
committerStefan Kangas <stefankangas@gmail.com>2023-08-08 04:53:08 +0200
commita579739e2b3f3c7218b14a7e41b78e7ddbded06c (patch)
tree7082f5cc920bed7e1843f08a4de44961eef66e8a /lisp/tooltip.el
parent301e6a747acc31f9bcc5b7c2429dbcfa806d48f5 (diff)
downloademacs-a579739e2b3f3c7218b14a7e41b78e7ddbded06c.tar.gz
emacs-a579739e2b3f3c7218b14a7e41b78e7ddbded06c.tar.bz2
emacs-a579739e2b3f3c7218b14a7e41b78e7ddbded06c.zip
Make XEmacs compat aliases for timers obsolete
* lisp/emacs-lisp/timer.el (disable-timeout, add-timeout): Make XEmacs compat aliases obsolete. Update all callers.
Diffstat (limited to 'lisp/tooltip.el')
-rw-r--r--lisp/tooltip.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index 8d92caed08e..0881a7c7bf9 100644
--- a/lisp/tooltip.el
+++ b/lisp/tooltip.el
@@ -194,13 +194,13 @@ This might return nil if the event did not occur over a buffer."
(defun tooltip-cancel-delayed-tip ()
"Disable the tooltip timeout."
(when tooltip-timeout-id
- (disable-timeout tooltip-timeout-id)
+ (cancel-timer tooltip-timeout-id)
(setq tooltip-timeout-id nil)))
(defun tooltip-start-delayed-tip ()
"Add a one-shot timeout to call function `tooltip-timeout'."
(setq tooltip-timeout-id
- (add-timeout (tooltip-delay) 'tooltip-timeout nil)))
+ (run-with-timer (tooltip-delay) 'tooltip-timeout nil)))
(defun tooltip-timeout (_object)
"Function called when timer with id `tooltip-timeout-id' fires."