# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 731718166 0
# Node ID aa90bb7c515b0ade1c21b397d60f24e4e3714978
# Parent  ce87fdf94348b6d2fc7fe3a3ed16bdbf0c9b1d30
Initial revision

diff -r ce87fdf94348 -r aa90bb7c515b lisp/emacs-lisp/lucid.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/emacs-lisp/lucid.el	Tue Mar 09 23:02:46 1993 +0000
@@ -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))