+2000-10-19 Gerd Moellmann <gerd@gnu.org>
+
+ * eval.c (skip_debugger): Prevent a compiler warning.
+ (Fcondition_case): Likewise.
+ (Fbacktrace_frame): Use a null interactive spec.
+
2000-10-19 Kenichi Handa <handa@etl.go.jp>
* xterm.c (x_find_ccl_program): Check also fontp->full_name.
Lisp_Object val;
struct catchtag c;
struct handler h;
- register Lisp_Object var, bodyform, handlers;
+ register Lisp_Object bodyform, handlers;
+ volatile Lisp_Object var;
var = Fcar (args);
bodyform = Fcar (Fcdr (args));
int first_string = 1;
Lisp_Object error_message;
- for (tail = Vdebug_ignored_errors; CONSP (tail);
- tail = XCDR (tail))
+ error_message = Qnil;
+ for (tail = Vdebug_ignored_errors; CONSP (tail); tail = XCDR (tail))
{
if (STRINGP (XCAR (tail)))
{
error_message = Ferror_message_string (data);
first_string = 0;
}
+
if (fast_string_match (XCAR (tail), error_message) >= 0)
return 1;
}
{
Lisp_Object contail;
- for (contail = conditions; CONSP (contail);
- contail = XCDR (contail))
+ for (contail = conditions; CONSP (contail); contail = XCDR (contail))
if (EQ (XCAR (tail), XCAR (contail)))
return 1;
}
return Qnil;
}
-DEFUN ("backtrace-frame", Fbacktrace_frame, Sbacktrace_frame, 1, 1, "",
+DEFUN ("backtrace-frame", Fbacktrace_frame, Sbacktrace_frame, 1, 1, NULL,
"Return the function and arguments NFRAMES up from current execution point.\n\
If that frame has not evaluated the arguments yet (or is a special form),\n\
the value is (nil FUNCTION ARG-FORMS...).\n\