[Emacs-diffs] Changes to emacs/src/alloc.c

[Kenichi Handa]

Index: emacs/src/alloc.c
diff -c emacs/src/alloc.c:1.367 emacs/src/alloc.c:1.368
*** emacs/src/alloc.c:1.367     Sun Apr  3 22:27:05 2005
--- emacs/src/alloc.c   Wed Apr 20 07:50:08 2005
***************
*** 3014,3031 ****
  }
  
  
! /* Return a newly created sub char table with default value DEFALT.
     Since a sub char table does not appear as a top level Emacs Lisp
     object, we don't need a Lisp interface to make it.  */
  
  Lisp_Object
! make_sub_char_table (defalt)
!      Lisp_Object defalt;
  {
    Lisp_Object vector
!     = Fmake_vector (make_number (SUB_CHAR_TABLE_STANDARD_SLOTS), Qnil);
    XCHAR_TABLE (vector)->top = Qnil;
!   XCHAR_TABLE (vector)->defalt = defalt;
    XSETCHAR_TABLE (vector, XCHAR_TABLE (vector));
    return vector;
  }
--- 3014,3031 ----
  }
  
  
! /* Return a newly created sub char table with slots initialized by INIT.
     Since a sub char table does not appear as a top level Emacs Lisp
     object, we don't need a Lisp interface to make it.  */
  
  Lisp_Object
! make_sub_char_table (init)
!      Lisp_Object init;
  {
    Lisp_Object vector
!     = Fmake_vector (make_number (SUB_CHAR_TABLE_STANDARD_SLOTS), init);
    XCHAR_TABLE (vector)->top = Qnil;
!   XCHAR_TABLE (vector)->defalt = Qnil;
    XSETCHAR_TABLE (vector, XCHAR_TABLE (vector));
    return vector;
  }