Lines Matching defs:eval
49 ;; Make events of type eval, menu and timeout
52 (define-key global-map [menu] 'execute-eval-event)
53 (define-key global-map [timeout] 'execute-eval-event)
54 (define-key global-map [eval] 'execute-eval-event)
56 (defun execute-eval-event (event)
60 (put 'eval 'event-symbol-elements '(eval))
61 (put 'menu 'event-symbol-elements '(eval))
62 (put 'timeout 'event-symbol-elements '(eval))
124 (defun enqueue-eval-event: (function object)
125 "Add an eval event to the back of the queue.
129 (list (list 'eval function object)))))
131 (defun eval-event-p (obj)
132 "True if the argument is an eval or menu event object."
133 (eq (car-safe obj) 'eval))
142 "Return the callback function of the given timeout, menu, or eval event."
154 "Returns the function argument of the given timeout, menu, or eval event."
281 (cond ((eq type 'eval)