From 92e30bc5e0b07ce719bf810f76ab1079a6ed1a94 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Tue, 9 Mar 1993 23:02:46 +0000 Subject: Initial revision --- lisp/emacs-lisp/lucid.el | 5 +++++ 1 file changed, 5 insertions(+) create mode 100644 lisp/emacs-lisp/lucid.el (limited to 'lisp/emacs-lisp/lucid.el') diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el new file mode 100644 index 00000000000..8ee8603694d --- /dev/null +++ b/lisp/emacs-lisp/lucid.el @@ -0,0 +1,5 @@ +(defun add-timeout (secs function object &optional resignal) + (run-at-time secs resignal function object)) + +(defun disable-timeout (timeout) + (cancel-timer timeout)) -- cgit v1.2.3