# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 845336394 0
# Node ID 0128b923d281119f649ff558a65dc9dd90f206f0
# Parent  e07564b5ca82cdda674515549ad195c4441e20d8
(Vdebug_on_signal): Renamed from Vdebug_force.

diff -r e07564b5ca82 -r 0128b923d281 src/eval.c
--- a/src/eval.c	Mon Oct 14 07:54:04 1996 +0000
+++ b/src/eval.c	Mon Oct 14 23:39:54 1996 +0000
@@ -136,7 +136,7 @@
 Lisp_Object Vdebug_ignored_errors;
 
 /* Non-nil means call the debugger even if the error will be handled.  */
-Lisp_Object Vdebug_force;
+Lisp_Object Vdebug_on_signal;
 
 /* Hook for edebug to use.  */
 Lisp_Object Vsignal_hook_function;
@@ -1348,8 +1348,8 @@
   /* error is used similarly, but means print an error message
      and run the debugger if that is enabled.  */
   if (EQ (handlers, Qerror)
-      || !NILP (Vdebug_force)) /* This says call debugger even if
-				     there is a handler.  */
+      || !NILP (Vdebug_on_signal)) /* This says call debugger even if
+				      there is a handler.  */
     {
       int count = specpdl_ptr - specpdl;
       int debugger_called = 0;
@@ -2957,11 +2957,11 @@
     "While in a mocklisp function, the list of its unevaluated args.");
   Vmocklisp_arguments = Qt;
 
-  DEFVAR_LISP ("debug-force", &Vdebug_force,
+  DEFVAR_LISP ("debug-on-signal", &Vdebug_on_signal,
     "*Non-nil means call the debugger regardless of condition handlers.\n\
 Note that `debug-on-error', `debug-on-quit' and friends\n\
 still determine whether to handle the particular condition.");
-  Vdebug_force = Qnil;
+  Vdebug_on_signal = Qnil;
 
   Vrun_hooks = intern ("run-hooks");
   staticpro (&Vrun_hooks);