(map_char_table): New arg SUBTABLE. Callers changed.

[gnu-emacs] / src / eval.c

diff --git a/src/eval.c b/src/eval.c
index 161861e41ed304a6c60ff95fb7bdce7f522650a6..eb08972bc67d8442280ddde10bf85b857c360bd6 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -168,7 +168,7 @@ init_eval_once ()
   specpdl = (struct specbinding *) xmalloc (specpdl_size * sizeof (struct specbinding));
   specpdl_ptr = specpdl;
   max_specpdl_size = 600;
-  max_lisp_eval_depth = 200;
+  max_lisp_eval_depth = 300;
 
   Vrun_hooks = Qnil;
 }
@@ -658,6 +658,9 @@ for the variable is `*'.")
 {
   Lisp_Object documentation;
   
+  if (!SYMBOLP (variable))
+      return Qnil;
+
   documentation = Fget (variable, Qvariable_documentation);
   if (INTEGERP (documentation) && XINT (documentation) < 0)
     return Qt;