diff options
| author | Dmitry Antipov | 2012-12-26 19:40:19 +0400 |
|---|---|---|
| committer | Dmitry Antipov | 2012-12-26 19:40:19 +0400 |
| commit | 6cda572a0f7da777cea9680131aa79be3f9be999 (patch) | |
| tree | 4f0de8141497db44255e3ddb811615f1e7298542 /src/alloc.c | |
| parent | 8847a0de5bd2e0df62f85c53c4b8d57d942d49ba (diff) | |
| download | emacs-6cda572a0f7da777cea9680131aa79be3f9be999.tar.gz emacs-6cda572a0f7da777cea9680131aa79be3f9be999.zip | |
* print.c (print_object): If Lisp_Save_Value object's pointer
is the address of a memory area containing Lisp_Objects, try
to print them.
* alloc.c (valid_lisp_object_p): Adjust comment.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/alloc.c b/src/alloc.c index 5a3ba465d81..f33c423ece7 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -4721,12 +4721,12 @@ valid_pointer_p (void *p) | |||
| 4721 | #endif | 4721 | #endif |
| 4722 | } | 4722 | } |
| 4723 | 4723 | ||
| 4724 | /* Return 2 if OBJ is a killed or special buffer object. | 4724 | /* Return 2 if OBJ is a killed or special buffer object, 1 if OBJ is a |
| 4725 | Return 1 if OBJ is a valid lisp object. | 4725 | valid lisp object, 0 if OBJ is NOT a valid lisp object, or -1 if we |
| 4726 | Return 0 if OBJ is NOT a valid lisp object. | 4726 | cannot validate OBJ. This function can be quite slow, so its primary |
| 4727 | Return -1 if we cannot validate OBJ. | 4727 | use is the manual debugging. The only exception is print_object, where |
| 4728 | This function can be quite slow, | 4728 | we use it to check whether the memory referenced by the pointer of |
| 4729 | so it should only be used in code for manual debugging. */ | 4729 | Lisp_Save_Value object contains valid objects. */ |
| 4730 | 4730 | ||
| 4731 | int | 4731 | int |
| 4732 | valid_lisp_object_p (Lisp_Object obj) | 4732 | valid_lisp_object_p (Lisp_Object obj) |