diff options
| author | Karoly Lorentey | 2005-04-25 11:49:38 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2005-04-25 11:49:38 +0000 |
| commit | 351c9889873cb0e8c4e43bc51f9a5b36b81ac9a6 (patch) | |
| tree | b487571bcab596eefd9c6049e9d9354e8ec0ac67 /src/alloc.c | |
| parent | 5ad1bc4dead80db3e81a6855714bc0b5817f5fc0 (diff) | |
| parent | 61b397cdc2019424c47f1fc5571fc127e2ed747d (diff) | |
| download | emacs-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.c | 10 |
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 | ||
| 3022 | Lisp_Object | 3022 | Lisp_Object |
| 3023 | make_sub_char_table (defalt) | 3023 | make_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 | } |