(Fdefconst): Mark variable as risky.

873759d5 · Richard M. Stallman · a4feb144 · 873759d5
Commit 873759d5 authored Jun 13, 2006 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

src/eval.c src/eval.c +3 -1

No files found.
--- a/src/eval.c
+++ b/src/eval.c
@@ -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;
 }