Lines Matching defs:question
35 ;; of the queue part is a list of question, regexp, closure, and
41 ;; the `delay-question' argument is non-nil, we will wait to send the
42 ;; question to the process until it has finished sending other input.
43 ;; Otherwise, once a request is enqueued, we send the given question
49 ;; have indicated that the question from the next transaction was not
62 ;; ((question regexp closure . fn)
64 ;; question: string to send to the process
65 (defun tq-queue-head-question (tq) (car (car (tq-queue tq))))
95 (defun tq-queue-add (tq question re closure fn)
97 (cons (cons question (cons re (cons closure fn))) nil)))
102 (let ((question (tq-queue-head-question tq)))
103 (when question
104 (process-send-string (tq-process tq) question)))
107 (defun tq-enqueue (tq question regexp closure fn &optional delay-question)
113 needs, and the answer to the question.
118 If DELAY-QUESTION is non-nil, delay sending this question until
121 (let ((sendp (or (not delay-question)
123 (tq-queue-add tq (unless sendp question) regexp closure fn)
125 (process-send-string (tq-process tq) question))))