# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1150240157 0
# Node ID 012bd1b59e70effa210e237818c5189cce73a0f6
# Parent  5de9b904c7adc72eec1e021e495b21b9347c4fb1
(Fdefconst): Mark variable as risky.

diff -r 5de9b904c7ad -r 012bd1b59e70 src/eval.c
--- a/src/eval.c	Tue Jun 13 23:08:39 2006 +0000
+++ b/src/eval.c	Tue Jun 13 23:09:17 2006 +0000
@@ -195,9 +195,10 @@
 
 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 @@
 	tem = Fpurecopy (tem);
       Fput (sym, Qvariable_documentation, tem);
     }
+  Fput (sym, Qrisky_local_variable, Qt);
   LOADHIST_ATTACH (sym);
   return sym;
 }