diff options
| author | John Wiegley | 2016-01-02 23:31:52 -0800 |
|---|---|---|
| committer | John Wiegley | 2016-01-02 23:31:52 -0800 |
| commit | 91917dd58ec5278e555b9c693a830749083e8f89 (patch) | |
| tree | 3b0c8104106f6dec7873378bccc1273e587f6051 /src/print.c | |
| parent | c988877f436bbbb285a0b34f5e037f7758dd6349 (diff) | |
| parent | 9f2f14a0725211b13a744573344636b57b9c98b9 (diff) | |
| download | emacs-91917dd58ec5278e555b9c693a830749083e8f89.tar.gz emacs-91917dd58ec5278e555b9c693a830749083e8f89.zip | |
Merge branch 'emacs-25-merge'
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/print.c b/src/print.c index 6f868ceff84..420e6f55b4c 100644 --- a/src/print.c +++ b/src/print.c | |||
| @@ -1990,6 +1990,19 @@ print_object (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag) | |||
| 1990 | printchar ('>', printcharfun); | 1990 | printchar ('>', printcharfun); |
| 1991 | break; | 1991 | break; |
| 1992 | 1992 | ||
| 1993 | #ifdef HAVE_MODULES | ||
| 1994 | case Lisp_Misc_User_Ptr: | ||
| 1995 | { | ||
| 1996 | print_c_string ("#<user-ptr ", printcharfun); | ||
| 1997 | int i = sprintf (buf, "ptr=%p finalizer=%p", | ||
| 1998 | XUSER_PTR (obj)->p, | ||
| 1999 | XUSER_PTR (obj)->finalizer); | ||
| 2000 | strout (buf, i, i, printcharfun); | ||
| 2001 | printchar ('>', printcharfun); | ||
| 2002 | break; | ||
| 2003 | } | ||
| 2004 | #endif | ||
| 2005 | |||
| 1993 | case Lisp_Misc_Finalizer: | 2006 | case Lisp_Misc_Finalizer: |
| 1994 | print_c_string ("#<finalizer", printcharfun); | 2007 | print_c_string ("#<finalizer", printcharfun); |
| 1995 | if (NILP (XFINALIZER (obj)->function)) | 2008 | if (NILP (XFINALIZER (obj)->function)) |