aboutsummaryrefslogtreecommitdiffstats
path: root/src/alloc.c
diff options
context:
space:
mode:
authorKaroly Lorentey2005-04-25 11:49:38 +0000
committerKaroly Lorentey2005-04-25 11:49:38 +0000
commit351c9889873cb0e8c4e43bc51f9a5b36b81ac9a6 (patch)
treeb487571bcab596eefd9c6049e9d9354e8ec0ac67 /src/alloc.c
parent5ad1bc4dead80db3e81a6855714bc0b5817f5fc0 (diff)
parent61b397cdc2019424c47f1fc5571fc127e2ed747d (diff)
downloademacs-351c9889873cb0e8c4e43bc51f9a5b36b81ac9a6.tar.gz
emacs-351c9889873cb0e8c4e43bc51f9a5b36b81ac9a6.zip
Merged from miles@gnu.org--gnu-2005 (patch 67, 270-278)
Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-270 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-271 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-272 src/xdisp.c (dump_glyph_row): Don't display overlay_arrow_p field. * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-273 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-274 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-275 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-276 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-277 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-278 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-67 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-332
Diffstat (limited to 'src/alloc.c')
-rw-r--r--src/alloc.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/alloc.c b/src/alloc.c
index c29c4c8e7f6..43db28e08a0 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3015,18 +3015,18 @@ The property's value should be an integer between 0 and 10. */)
3015} 3015}
3016 3016
3017 3017
3018/* Return a newly created sub char table with default value DEFALT. 3018/* Return a newly created sub char table with slots initialized by INIT.
3019 Since a sub char table does not appear as a top level Emacs Lisp 3019 Since a sub char table does not appear as a top level Emacs Lisp
3020 object, we don't need a Lisp interface to make it. */ 3020 object, we don't need a Lisp interface to make it. */
3021 3021
3022Lisp_Object 3022Lisp_Object
3023make_sub_char_table (defalt) 3023make_sub_char_table (init)
3024 Lisp_Object defalt; 3024 Lisp_Object init;
3025{ 3025{
3026 Lisp_Object vector 3026 Lisp_Object vector
3027 = Fmake_vector (make_number (SUB_CHAR_TABLE_STANDARD_SLOTS), Qnil); 3027 = Fmake_vector (make_number (SUB_CHAR_TABLE_STANDARD_SLOTS), init);
3028 XCHAR_TABLE (vector)->top = Qnil; 3028 XCHAR_TABLE (vector)->top = Qnil;
3029 XCHAR_TABLE (vector)->defalt = defalt; 3029 XCHAR_TABLE (vector)->defalt = Qnil;
3030 XSETCHAR_TABLE (vector, XCHAR_TABLE (vector)); 3030 XSETCHAR_TABLE (vector, XCHAR_TABLE (vector));
3031 return vector; 3031 return vector;
3032} 3032}