Commit 873759d5 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fdefconst): Mark variable as risky.

parent a4feb144
......@@ -195,9 +195,10 @@ int handling_signal;
Lisp_Object Vmacro_declaration_function;
extern Lisp_Object Qrisky_local_variable;
static Lisp_Object funcall_lambda P_ ((Lisp_Object, int, Lisp_Object*));
void
init_eval_once ()
{
......@@ -895,6 +896,7 @@ usage: (defconst SYMBOL INITVALUE [DOCSTRING]) */)
tem = Fpurecopy (tem);
Fput (sym, Qvariable_documentation, tem);
}
Fput (sym, Qrisky_local_variable, Qt);
LOADHIST_ATTACH (sym);
return sym;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment