/[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.422 by kfstorm, Mon May 27 22:05:51 2002 UTC revision 1.423 by ttn, Mon Jun 3 01:53:27 2002 UTC
# Line 303  enum pvec_type Line 303  enum pvec_type
303    PVEC_BUFFER = 0x20000,    PVEC_BUFFER = 0x20000,
304    PVEC_HASH_TABLE = 0x40000,    PVEC_HASH_TABLE = 0x40000,
305    PVEC_TYPE_MASK = 0x7fe00    PVEC_TYPE_MASK = 0x7fe00
306      
307  #if 0 /* This is used to make the value of PSEUDOVECTOR_FLAG available to  #if 0 /* This is used to make the value of PSEUDOVECTOR_FLAG available to
308           GDB.  It doesn't work on OS Alpha.  Moved to a variable in           GDB.  It doesn't work on OS Alpha.  Moved to a variable in
309           emacs.c.  */           emacs.c.  */
# Line 892  struct Lisp_Symbol Line 892  struct Lisp_Symbol
892    
893    /* The symbol's property list.  */    /* The symbol's property list.  */
894    Lisp_Object plist;    Lisp_Object plist;
895        
896    /* Next symbol in obarray bucket, if the symbol is interned.  */    /* Next symbol in obarray bucket, if the symbol is interned.  */
897    struct Lisp_Symbol *next;    struct Lisp_Symbol *next;
898  };  };
# Line 935  struct Lisp_Symbol Line 935  struct Lisp_Symbol
935         else                                                     \         else                                                     \
936           XSYMBOL (sym)->value = (val);                          \           XSYMBOL (sym)->value = (val);                          \
937       } while (0)       } while (0)
938        
939    
940  /***********************************************************************  /***********************************************************************
941                               Hash Tables                               Hash Tables
# Line 948  struct Lisp_Hash_Table Line 948  struct Lisp_Hash_Table
948    /* Vector fields.  The hash table code doesn't refer to these.  */    /* Vector fields.  The hash table code doesn't refer to these.  */
949    EMACS_INT size;    EMACS_INT size;
950    struct Lisp_Vector *vec_next;    struct Lisp_Vector *vec_next;
951      
952    /* Function used to compare keys.  */    /* Function used to compare keys.  */
953    Lisp_Object test;    Lisp_Object test;
954    
955    /* Nil if table is non-weak.  Otherwise a symbol describing the    /* Nil if table is non-weak.  Otherwise a symbol describing the
956       weakness of the table.  */       weakness of the table.  */
957    Lisp_Object weak;    Lisp_Object weak;
958      
959    /* When the table is resized, and this is an integer, compute the    /* When the table is resized, and this is an integer, compute the
960       new size by adding this to the old size.  If a float, compute the       new size by adding this to the old size.  If a float, compute the
961       new size by multiplying the old size with this factor.  */       new size by multiplying the old size with this factor.  */
# Line 1127  struct Lisp_Buffer_Objfwd Line 1127  struct Lisp_Buffer_Objfwd
1127     one that corresponds to the loaded binding.  To read or set the     one that corresponds to the loaded binding.  To read or set the
1128     variable, you must first make sure the right binding is loaded;     variable, you must first make sure the right binding is loaded;
1129     then you can access the value in (or through) `realvalue'.     then you can access the value in (or through) `realvalue'.
1130      
1131     `buffer' and `frame' are the buffer and frame for which the loaded     `buffer' and `frame' are the buffer and frame for which the loaded
1132     binding was found.  If those have changed, to make sure the right     binding was found.  If those have changed, to make sure the right
1133     binding is loaded it is necessary to find which binding goes with     binding is loaded it is necessary to find which binding goes with
# Line 1601  typedef unsigned char UCHAR; Line 1601  typedef unsigned char UCHAR;
1601        || (SYMBOLP (OBJ) && !NILP (Ffboundp (OBJ)))      \        || (SYMBOLP (OBJ) && !NILP (Ffboundp (OBJ)))      \
1602        || COMPILEDP (OBJ)                                \        || COMPILEDP (OBJ)                                \
1603        || SUBRP (OBJ))        || SUBRP (OBJ))
1604        
1605  /* defsubr (Sname);  /* defsubr (Sname);
1606     is how we define the symbol for function `name' at start-up time.  */     is how we define the symbol for function `name' at start-up time.  */
1607  extern void defsubr P_ ((struct Lisp_Subr *));  extern void defsubr P_ ((struct Lisp_Subr *));
# Line 1646  extern void defvar_kboard P_ ((char *, i Line 1646  extern void defvar_kboard P_ ((char *, i
1646        form.        form.
1647    
1648     Otherwise, the element is a variable binding.     Otherwise, the element is a variable binding.
1649      
1650     If the symbol field is a symbol, it is an ordinary variable binding.     If the symbol field is a symbol, it is an ordinary variable binding.
1651      
1652     Otherwise, it should be a structure (SYMBOL WHERE     Otherwise, it should be a structure (SYMBOL WHERE
1653     . CURRENT-BUFFER), which means having bound a local value while     . CURRENT-BUFFER), which means having bound a local value while
1654     CURRENT-BUFFER was active.  If WHERE is nil this means we saw the     CURRENT-BUFFER was active.  If WHERE is nil this means we saw the
# Line 1797  extern struct gcpro *gcprolist; Line 1797  extern struct gcpro *gcprolist;
1797  struct gcpro  struct gcpro
1798  {  {
1799    struct gcpro *next;    struct gcpro *next;
1800      
1801    /* Address of first protected variable.  */    /* Address of first protected variable.  */
1802    volatile Lisp_Object *var;    volatile Lisp_Object *var;
1803      
1804    /* Number of consecutive protected variables.  */    /* Number of consecutive protected variables.  */
1805    int nvars;    int nvars;
1806      
1807  #ifdef DEBUG_GCPRO  #ifdef DEBUG_GCPRO
1808    int level;    int level;
1809  #endif  #endif
# Line 1833  struct gcpro Line 1833  struct gcpro
1833  /* Do something silly with gcproN vars just so gcc shuts up.  */  /* Do something silly with gcproN vars just so gcc shuts up.  */
1834    
1835  #define GCPRO1(varname) ((void) gcpro1)  #define GCPRO1(varname) ((void) gcpro1)
1836  #define GCPRO2(varname1, varname2)(((void) gcpro2, (void) gcpro1))  #define GCPRO2(varname1, varname2)(((void) gcpro2, (void) gcpro1))
1837  #define GCPRO3(varname1, varname2, varname3) \  #define GCPRO3(varname1, varname2, varname3) \
1838    (((void) gcpro3, (void) gcpro2, (void) gcpro1))    (((void) gcpro3, (void) gcpro2, (void) gcpro1))
1839  #define GCPRO4(varname1, varname2, varname3, varname4) \  #define GCPRO4(varname1, varname2, varname3, varname4) \
# Line 2807  EXFUN (Fvertical_motion, 2); Line 2807  EXFUN (Fvertical_motion, 2);
2807  EXFUN (Findent_to, 2);  EXFUN (Findent_to, 2);
2808  EXFUN (Fcurrent_column, 0);  EXFUN (Fcurrent_column, 0);
2809  EXFUN (Fmove_to_column, 2);  EXFUN (Fmove_to_column, 2);
2810  extern int current_column P_ ((void));  extern float current_column P_ ((void));
2811  extern void invalidate_current_column P_ ((void));  extern void invalidate_current_column P_ ((void));
2812  extern int indented_beyond_p P_ ((int, int, int));  extern int indented_beyond_p P_ ((int, int, float));
2813  extern void syms_of_indent P_ ((void));  extern void syms_of_indent P_ ((void));
2814    
2815  /* defined in window.c */  /* defined in window.c */
# Line 3143  extern Lisp_Object Vdirectory_sep_char; Line 3143  extern Lisp_Object Vdirectory_sep_char;
3143    
3144  /* Loop over Lisp list LIST.  Signal an error if LIST is not a proper  /* Loop over Lisp list LIST.  Signal an error if LIST is not a proper
3145     list, or if it contains circles.     list, or if it contains circles.
3146      
3147     HARE and TORTOISE should be the names of Lisp_Object variables, and     HARE and TORTOISE should be the names of Lisp_Object variables, and
3148     N should be the name of an EMACS_INT variable declared in the     N should be the name of an EMACS_INT variable declared in the
3149     function where the macro is used.  Each nested loop should use     function where the macro is used.  Each nested loop should use

Legend:
Removed from v.1.422  
changed lines
  Added in v.1.423

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