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

Diff of /emacs/src/alloc.c

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

revision 1.367 by kfstorm, Sun Apr 3 22:27:05 2005 UTC revision 1.368 by handa, Wed Apr 20 07:50:08 2005 UTC
# Line 3014  The property's value should be an intege Line 3014  The property's value should be an intege
3014  }  }
3015    
3016    
3017  /* Return a newly created sub char table with default value DEFALT.  /* Return a newly created sub char table with slots initialized by INIT.
3018     Since a sub char table does not appear as a top level Emacs Lisp     Since a sub char table does not appear as a top level Emacs Lisp
3019     object, we don't need a Lisp interface to make it.  */     object, we don't need a Lisp interface to make it.  */
3020    
3021  Lisp_Object  Lisp_Object
3022  make_sub_char_table (defalt)  make_sub_char_table (init)
3023       Lisp_Object defalt;       Lisp_Object init;
3024  {  {
3025    Lisp_Object vector    Lisp_Object vector
3026      = Fmake_vector (make_number (SUB_CHAR_TABLE_STANDARD_SLOTS), Qnil);      = Fmake_vector (make_number (SUB_CHAR_TABLE_STANDARD_SLOTS), init);
3027    XCHAR_TABLE (vector)->top = Qnil;    XCHAR_TABLE (vector)->top = Qnil;
3028    XCHAR_TABLE (vector)->defalt = defalt;    XCHAR_TABLE (vector)->defalt = Qnil;
3029    XSETCHAR_TABLE (vector, XCHAR_TABLE (vector));    XSETCHAR_TABLE (vector, XCHAR_TABLE (vector));
3030    return vector;    return vector;
3031  }  }

Legend:
Removed from v.1.367  
changed lines
  Added in v.1.368

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