rem: if (mred_only_context) return mred_only_context; else
add: if (mred_only_context) { if (only_context_just_once) { MrEdContext *c = mred_only_context; mred_only_context = NULL; only_context_just_once = 0; return c; } else return mred_only_context; } else
context: MrEdContext *MrEdGetContext(wxObject *w){  if (w) {#if !defined(wx_xt) && !defined(wx_mac)    if (wxSubType(w->__type, wxTYPE_FRAME)) {#endif      MrEdContext *c;      c = (MrEdContext *)((wxFrame *)w)->context;      if (c)	return c;#if !defined(wx_xt) && !defined(wx_mac)    } else {      MrEdContext *c;      c = (MrEdContext *)((wxDialogBox *)w)->context;      if (c)	return c;    }#endif  }  if (mred_only_context)    return mred_only_context;  else    return (MrEdContext *)scheme_get_param(scheme_current_config(), mred_eventspace_param);}