From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 13 Jun 2006 23:09:17 +0000 (+0000)
Subject: (Fdefconst): Mark variable as risky.
X-Git-Tag: emacs-pretest-22.0.90~1963
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=873759d5d8371981229fdc4b617a63ee745d8d9d;p=emacs.git

(Fdefconst): Mark variable as risky.
---

diff --git a/src/eval.c b/src/eval.c
index 20f29b5f06b..5f8d266ec7b 100644
--- 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;
 }