/[emacs]/emacs/src/eval.c
ViewVC logotype

Diff of /emacs/src/eval.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.174 by rms, Wed Nov 14 00:07:34 2001 UTC revision 1.175 by monnier, Fri Nov 16 11:43:41 2001 UTC
# Line 120  struct specbinding *specpdl_ptr; Line 120  struct specbinding *specpdl_ptr;
120    
121  /* Maximum size allowed for specpdl allocation */  /* Maximum size allowed for specpdl allocation */
122    
123  int max_specpdl_size;  EMACS_INT max_specpdl_size;
124    
125  /* Depth in Lisp evaluations and function calls.  */  /* Depth in Lisp evaluations and function calls.  */
126    
# Line 128  int lisp_eval_depth; Line 128  int lisp_eval_depth;
128    
129  /* Maximum allowed depth in Lisp evaluations and function calls.  */  /* Maximum allowed depth in Lisp evaluations and function calls.  */
130    
131  int max_lisp_eval_depth;  EMACS_INT max_lisp_eval_depth;
132    
133  /* Nonzero means enter debugger before next function call */  /* Nonzero means enter debugger before next function call */
134    
# Line 190  Lisp_Object Vsignaling_function; Line 190  Lisp_Object Vsignaling_function;
190    
191  int handling_signal;  int handling_signal;
192    
193  void specbind (), record_unwind_protect ();  static Lisp_Object funcall_lambda P_ ((Lisp_Object, int, Lisp_Object*));
194    /* Apply a mocklisp function to unevaluated argument list.  */
195  Lisp_Object run_hook_with_args ();  extern Lisp_Object ml_apply P_ ((Lisp_Object, Lisp_Object));
   
 Lisp_Object funcall_lambda ();  
 extern Lisp_Object ml_apply (); /* Apply a mocklisp function to unevaluated argument list */  
196    
197  void  void
198  init_eval_once ()  init_eval_once ()
# Line 1404  internal_condition_case_2 (bfun, nargs, Line 1401  internal_condition_case_2 (bfun, nargs,
1401  }  }
1402    
1403    
1404  static Lisp_Object find_handler_clause ();  static Lisp_Object find_handler_clause P_ ((Lisp_Object, Lisp_Object,
1405                                                Lisp_Object, Lisp_Object,
1406                                                Lisp_Object *));
1407    
1408  DEFUN ("signal", Fsignal, Ssignal, 2, 2, 0,  DEFUN ("signal", Fsignal, Ssignal, 2, 2, 0,
1409         doc: /* Signal an error.  Args are ERROR-SYMBOL and associated DATA.         doc: /* Signal an error.  Args are ERROR-SYMBOL and associated DATA.
# Line 2224  usage: (apply FUNCTION &rest ARGUMENTS) Line 2223  usage: (apply FUNCTION &rest ARGUMENTS)
2223  /* Run hook variables in various ways.  */  /* Run hook variables in various ways.  */
2224    
2225  enum run_hooks_condition {to_completion, until_success, until_failure};  enum run_hooks_condition {to_completion, until_success, until_failure};
2226    static Lisp_Object run_hook_with_args P_ ((int, Lisp_Object *,
2227                                               enum run_hooks_condition));
2228    
2229  DEFUN ("run-hooks", Frun_hooks, Srun_hooks, 0, MANY, 0,  DEFUN ("run-hooks", Frun_hooks, Srun_hooks, 0, MANY, 0,
2230         doc: /* Run each hook in HOOKS.  Major mode functions use this.         doc: /* Run each hook in HOOKS.  Major mode functions use this.
# Line 2321  usage: (run-hook-with-args-until-failure Line 2322  usage: (run-hook-with-args-until-failure
2322     The caller (or its caller, etc) must gcpro all of ARGS,     The caller (or its caller, etc) must gcpro all of ARGS,
2323     except that it isn't necessary to gcpro ARGS[0].  */     except that it isn't necessary to gcpro ARGS[0].  */
2324    
2325  Lisp_Object  static Lisp_Object
2326  run_hook_with_args (nargs, args, cond)  run_hook_with_args (nargs, args, cond)
2327       int nargs;       int nargs;
2328       Lisp_Object *args;       Lisp_Object *args;
# Line 2834  apply_lambda (fun, args, eval_flag) Line 2835  apply_lambda (fun, args, eval_flag)
2835     and return the result of evaluation.     and return the result of evaluation.
2836     FUN must be either a lambda-expression or a compiled-code object.  */     FUN must be either a lambda-expression or a compiled-code object.  */
2837    
2838  Lisp_Object  static Lisp_Object
2839  funcall_lambda (fun, nargs, arg_vector)  funcall_lambda (fun, nargs, arg_vector)
2840       Lisp_Object fun;       Lisp_Object fun;
2841       int nargs;       int nargs;

Legend:
Removed from v.1.174  
changed lines
  Added in v.1.175

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26