[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/alloc.c
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/src/alloc.c |
Date: |
Wed, 20 Apr 2005 03:50:13 -0400 |
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;
}