/[emacs]/emacs/src/lisp.h
ViewVC logotype

Diff of /emacs/src/lisp.h

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

revision 1.398 by monnier, Mon Nov 19 06:46:01 2001 UTC revision 1.399 by monnier, Tue Nov 27 19:28:52 2001 UTC
# Line 878  struct Lisp_Symbol Line 878  struct Lisp_Symbol
878       and set a symbol's value, to take defvaralias into account.  */       and set a symbol's value, to take defvaralias into account.  */
879    Lisp_Object value;    Lisp_Object value;
880    
881    /* Function value of the symbol or Qunbound if not fcoundp.  */    /* Function value of the symbol or Qunbound if not fboundp.  */
882    Lisp_Object function;    Lisp_Object function;
883    
884    /* The symbol's property list.  */    /* The symbol's property list.  */
# Line 2451  EXFUN (Frun_hooks, MANY); Line 2451  EXFUN (Frun_hooks, MANY);
2451  EXFUN (Frun_hook_with_args, MANY);  EXFUN (Frun_hook_with_args, MANY);
2452  EXFUN (Frun_hook_with_args_until_success, MANY);  EXFUN (Frun_hook_with_args_until_success, MANY);
2453  EXFUN (Frun_hook_with_args_until_failure, MANY);  EXFUN (Frun_hook_with_args_until_failure, MANY);
 extern Lisp_Object run_hook_list_with_args P_ ((Lisp_Object, int, Lisp_Object *));  
2454  extern void run_hook_with_args_2 P_ ((Lisp_Object, Lisp_Object, Lisp_Object));  extern void run_hook_with_args_2 P_ ((Lisp_Object, Lisp_Object, Lisp_Object));
2455  EXFUN (Fand, UNEVALLED);  EXFUN (Fand, UNEVALLED);
2456  EXFUN (For, UNEVALLED);  EXFUN (For, UNEVALLED);
# Line 3110  extern Lisp_Object Vdirectory_sep_char; Line 3109  extern Lisp_Object Vdirectory_sep_char;
3109     ? 1                                                  \     ? 1                                                  \
3110     : (CONSP (obj)                                       \     : (CONSP (obj)                                       \
3111        ? 0                                               \        ? 0                                               \
3112        : (wrong_type_argument (Qlistp, (list), 0)), 1))        : (wrong_type_argument (Qlistp, (list))), 1))
3113    
3114  #define FOREACH(hare, list, tortoise, n)                \  #define FOREACH(hare, list, tortoise, n)                \
3115    for (tortoise = hare = (list), n = 0;                 \    for (tortoise = hare = (list), n = 0;                 \
# Line 3135  extern Lisp_Object Vdirectory_sep_char; Line 3134  extern Lisp_Object Vdirectory_sep_char;
3134     fixnum.  */     fixnum.  */
3135    
3136  #define make_fixnum_or_float(val) \  #define make_fixnum_or_float(val) \
3137     (FIXNUM_OVERFLOW_P (val) ? make_float (val) : make_number ((int)(val)))     (FIXNUM_OVERFLOW_P (val) \
3138        ? make_float (val) \
3139        : make_number ((EMACS_INT)(val)))

Legend:
Removed from v.1.398  
changed lines
  Added in v.1.399

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