static Lisp_Object default_error_handler (Lisp_Object data) { int speccount = specpdl_depth (); /* None of this is invoked, normally. This code is almost identical to the `command-error' function, except `command-error' does cool tricks with sounds. This function is a fallback, invoked if command-error is unavailable. */ Fding (Qnil, Qnil, Qnil); if (!NILP (Fboundp (Qerrors_deactivate_region)) && !NILP (Fsymbol_value (Qerrors_deactivate_region))) zmacs_deactivate_region (); Fdiscard_input (); specbind (Qinhibit_quit, Qt); Vstandard_output = Qt; Vstandard_input = Qt; Vexecuting_macro = Qnil; Fset (intern ("last-error"), data); clear_echo_area (selected_frame (), Qnil, 0); Fdisplay_error (data, Qt); check_quit (); /* make Vquit_flag accurate */ Vquit_flag = Qnil; return (unbind_to (speccount, Qt)); }
void copy_symbol1(CL_FORM *base) { if(CL_SYMBOLP(ARG(0))) { LOAD_SMSTR(SYM_NAME(ARG(0)), ARG(2)); } else { if(CL_TRUEP(ARG(0))) { COPY(SYMVAL(Slisp, 676), ARG(2)); /* SYM_EXPECTED */ COPY(ARG(0), ARG(3)); Ferror(ARG(2), 2); } else { LOAD_SMSTR((CL_FORM *)&KClisp[266], ARG(2)); /* NIL */ } } Fmake_symbol(ARG(2)); if(CL_TRUEP(ARG(1))) { COPY(ARG(0), ARG(3)); Fboundp(ARG(3)); if(CL_TRUEP(ARG(3))) { COPY(ARG(2), ARG(3)); if(CL_SYMBOLP(ARG(0))) { COPY(SYM_VALUE(ARG(0)), ARG(4)); } else { if(CL_TRUEP(ARG(0))) { COPY(SYMVAL(Slisp, 676), ARG(4)); /* SYM_EXPECTED */ COPY(ARG(0), ARG(5)); Ferror(ARG(4), 2); } else { LOAD_NIL(ARG(4)); } } Fset(ARG(3)); } if(CL_SYMBOLP(ARG(0))) { COPY(SYM_PLIST(ARG(0)), ARG(3)); } else { if(CL_TRUEP(ARG(0))) { COPY(SYMVAL(Slisp, 676), ARG(3)); /* SYM_EXPECTED */ COPY(ARG(0), ARG(4)); Ferror(ARG(3), 2); } else { COPY(SYMVAL(Slisp, 678), ARG(3)); /* *NIL-PLIST* */ } } Fcopy_list(ARG(3)); COPY(ARG(3), ARG(4)); COPY(ARG(2), ARG(5)); Fset_symbol_plist(ARG(4)); } COPY(ARG(2), ARG(0)); }