Lines Matching refs:answer
50 (let (answer short-opponent short-file)
62 (while (null answer)
71 (setq answer (assoc tem '((?s . t)
76 (cond ((null answer)
80 ((eq (cdr answer) 'help)
82 (setq answer nil))
83 ((eq (cdr answer) 'yield)
85 (cdr answer))))
114 (let (answer)
115 (while (null answer)
120 (setq answer
128 (cond ((null answer)
132 ((eq answer 'help)
134 (setq answer nil))
135 ((eq answer 'revert)
140 ((eq answer 'yield)