From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 16 Dec 2022 12:14:42 +0000 (+0200)
Subject: ; Fix printing Lisp types in .gdbinit
X-Git-Tag: emacs-29.0.90~1134
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1b9ca1e5e646cdd678f0d29ef5e833c8ff2298c5;p=emacs.git

; Fix printing Lisp types in .gdbinit

* src/alloc.c (valid_lisp_object_p): Support printing
stack-allocated strings and cons cells.
---

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)
       if (valid <= 0)
 	return valid;
 
-      if (SUBRP (obj))
+      /* Strings and conses produced by AUTO_STRING etc. all get here.  */
+      if (SUBRP (obj) || STRINGP (obj) || CONSP (obj))
 	return 1;
 
       return 0;