diff options
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/print.c b/src/print.c index d391fd5f7a3..838d03666d4 100644 --- a/src/print.c +++ b/src/print.c @@ -2046,7 +2046,10 @@ print_object (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag) break; case Lisp_Misc_Finalizer: - strout ("#<finalizer>", -1, -1, printcharfun); + strout ("#<finalizer", -1, -1, printcharfun); + if (NILP (XFINALIZER (obj)->function)) + strout (" used", -1, -1, printcharfun); + strout (">", -1, -1, printcharfun); break; /* Remaining cases shouldn't happen in normal usage, but let's |