Lines Matching +defs:tag +defs:temp
58 structures) just point to a catch tag to do the cleanup required
64 A call like (throw TAG VAL) searches for a catchtag whose `tag'
74 Lisp_Object tag;
1178 TAG is evalled to get the tag to use; it must not be nil.
1188 register Lisp_Object tag;
1192 tag = Feval (Fcar (args));
1194 return internal_catch (tag, Fprogn, Fcdr (args));
1202 internal_catch (tag, func, arg)
1203 Lisp_Object tag;
1212 c.tag = tag;
1237 they choose the catch tag to throw to. A catch tag for a
1256 /* Save the value in the tag. */
1300 (tag, value)
1301 register Lisp_Object tag, value;
1305 if (!NILP (tag))
1308 if (EQ (c->tag, tag))
1311 xsignal2 (Qno_catch, tag, value);
1400 c.tag = Qnil;
1428 h.tag = &c;
1464 c.tag = Qnil;
1483 h.tag = &c;
1512 c.tag = Qnil;
1531 h.tag = &c;
1563 c.tag = Qnil;
1582 h.tag = &c;
1703 unwind_to_catch (h->tag, unwind_data);
2731 Lisp_Object temp[3];
2732 temp[0] = hook;
2733 temp[1] = arg1;
2734 temp[2] = arg2;
2736 Frun_hook_with_args (3, temp);
3570 to the tag specified in `throw-on-input'; it's for handling `while-no-input'.
3739 /* arch-tag: 014a07aa-33ab-4a8f-a3d2-ee8a4a9ff7fb