diff options
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/print.c b/src/print.c index 36d68a452ec..db3d00f51f2 100644 --- a/src/print.c +++ b/src/print.c @@ -1818,6 +1818,12 @@ print_object (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag) print_object (h->rehash_threshold, printcharfun, escapeflag); } + if (!NILP (h->pure)) + { + print_c_string (" purecopy ", printcharfun); + print_object (h->pure, printcharfun, escapeflag); + } + print_c_string (" data ", printcharfun); /* Print the data here as a plist. */ |