diff options
| author | Eli Zaretskii | 2022-12-16 14:14:42 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2022-12-16 14:14:42 +0200 |
| commit | 1b9ca1e5e646cdd678f0d29ef5e833c8ff2298c5 (patch) | |
| tree | 4a17bd2603aebe83d36441ffccdf13af9ece5109 /src/alloc.c | |
| parent | 7575c85efd27f3a4e8e968d0bef1c63d6a2b8d84 (diff) | |
| download | emacs-1b9ca1e5e646cdd678f0d29ef5e833c8ff2298c5.tar.gz emacs-1b9ca1e5e646cdd678f0d29ef5e833c8ff2298c5.zip | |
; Fix printing Lisp types in .gdbinit
* src/alloc.c (valid_lisp_object_p): Support printing
stack-allocated strings and cons cells.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/alloc.c b/src/alloc.c index 980085d3292..9feca7ae024 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -5275,7 +5275,8 @@ valid_lisp_object_p (Lisp_Object obj) | |||
| 5275 | if (valid <= 0) | 5275 | if (valid <= 0) |
| 5276 | return valid; | 5276 | return valid; |
| 5277 | 5277 | ||
| 5278 | if (SUBRP (obj)) | 5278 | /* Strings and conses produced by AUTO_STRING etc. all get here. */ |
| 5279 | if (SUBRP (obj) || STRINGP (obj) || CONSP (obj)) | ||
| 5279 | return 1; | 5280 | return 1; |
| 5280 | 5281 | ||
| 5281 | return 0; | 5282 | return 0; |