comparison src/lread.c @ 10606:97b210b19217

(defvar_display): New function.

10605:bc37b55fcbb9

}
#endif /* NOTDEF */

/* Define an "integer variable"; a symbol whose value is forwarded
   to a C variable of type int.  Sample call: */
  /* DEFVARINT ("indent-tabs-mode", &indent_tabs_mode, "Documentation");  */
void
defvar_int (namestring, address)
     char *namestring;
     int *address;
{

       slot of buffer_local_flags */
    abort ();
}

#endif /* standalone */

init_lread ()
{
  char *normal;

10606:97b210b19217

}
#endif /* NOTDEF */

/* Define an "integer variable"; a symbol whose value is forwarded
   to a C variable of type int.  Sample call: */
  /* DEFVAR_INT ("indent-tabs-mode", &indent_tabs_mode, "Documentation");  */
void
defvar_int (namestring, address)
     char *namestring;
     int *address;
{

       slot of buffer_local_flags */
    abort ();
}

#endif /* standalone */

/* Similar but define a variable whose value is the Lisp Object stored
   at a particular offset in the current perdisplay object.  */

void
defvar_display (namestring, offset)
     char *namestring;
     int offset;
{
  Lisp_Object sym, val;
  sym = intern (namestring);
  val = allocate_misc ();
  XMISC (val)->type = Lisp_Misc_Display_Objfwd;
  XDISPLAY_OBJFWD (val)->offset = offset;
  XSYMBOL (sym)->value = val;
}

init_lread ()
{
  char *normal;