lisp/emacs-lisp/lucid.el


1
2
3
4
5

(defun add-timeout (secs function object &optional resignal)
  (run-at-time secs resignal function object))

(defun disable-timeout (timeout)
  (cancel-timer timeout))