; 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 980085d3292728c9b97c5639f28bf3245b128928..9feca7ae0240e423414aca21a35d042a72b0c199 100644 (file)
--- 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;