diff options
| author | Dmitry Antipov <dmantipov@yandex.ru> | 2012-07-18 09:44:36 +0400 |
|---|---|---|
| committer | Dmitry Antipov <dmantipov@yandex.ru> | 2012-07-18 09:44:36 +0400 |
| commit | 3ab6e069695d0dd5bb77133a89f858190ab8550a (patch) | |
| tree | bd50490ec50ec8d5f72625fd38840d1283983561 /src/lisp.h | |
| parent | 0a60bc107123321438fc1320ab34fcf588ec7128 (diff) | |
| download | emacs-3ab6e069695d0dd5bb77133a89f858190ab8550a.tar.gz | |
Return more descriptive data from Fgarbage_collect.
Suggested by Stefan Monnier in
http://lists.gnu.org/archive/html/emacs-devel/2012-07/msg00369.html.
* src/alloc.c (bounded_number): New function.
(total_buffers, total_vectors): New variable.
(total_string_size): Rename to total_string_bytes, adjust users.
(total_vector_size): Rename to total_vector_bytes, adjust users.
(sweep_vectors): Account total_vectors and total_vector_bytes.
(Fgarbage_collect): New return value. Adjust documentation.
(gc_sweep): Account total_buffers.
(Fmemory_free, Fmemory_use_counts): Use bounded_number.
(VECTOR_SIZE): Remove.
* src/data.c (Qfloat, Qvector, Qsymbol, Qstring, Qcons): Make global.
(Qinterval, Qmisc): New symbols.
(syms_of_data): Initialize them.
* src/lisp.h (Qinterval, Qsymbol, Qstring, Qmisc, Qvector, Qfloat)
(Qcons, Qbuffer): New declarations.
* lisp/emacs-lisp/chart.el (chart-emacs-storage): Change to
reflect new format of data returned by Fgarbage_collect.
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/lisp.h b/src/lisp.h index 09c504363fa..4bd0b785618 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -2332,7 +2332,8 @@ extern Lisp_Object Qoverflow_error, Qunderflow_error; extern Lisp_Object Qfloatp; extern Lisp_Object Qnumberp, Qnumber_or_marker_p; -extern Lisp_Object Qinteger; +extern Lisp_Object Qinteger, Qinterval, Qsymbol, Qstring; +extern Lisp_Object Qmisc, Qvector, Qfloat, Qcons, Qbuffer; extern Lisp_Object Qfont_spec, Qfont_entity, Qfont_object; |